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COMPUTER PROGRAM FOR CALCULATING SUPERSONIC FLOW 


ON THE WINDWARD SIDE OF CONICAL DELTA WINGS 
BY THE METHOD OF LINES 

By E. B. Klunker, Jerry C. South, Jr., and Ruby M. Davis 
Langley Research Center 

SUMMARY 

This paper is a user's manual for a program which calculates the supersonic flow 
on the windward side of conical delta wings with shock attached at the sharp leading edge 
by the method of lines. The program also has a limited capability for computing the 
flow about circular and elliptic cones at incidence. It provides information including the 
shock shape, flow field, isentropic surface -flow properties, and force coefficients. A 
description of the program operation, a sample computation, and a FORTRAN IV program 
listing are included. 


INTRODUCTION 

In reference 1 the so-called method of lines was developed for obtaining numerical 
solutions of general supersonic conical flow problems, that is, those gas -dynamic prob- 
lems in which the fluid properties do not vary along rays emanating from a common point 
in the flow. The method was applied to circular and elliptic cones and to the windward 
side of conical delta wings with shock attached at the sharp leading edges. 

This paper describes a computer program which uses the method of reference 1 
and which is primarily designed for the delta -wing problems just mentioned. The program 
provides information including the shock shape, flow field, isentropic surface-flow prop- 
erties, and force coefficients. The program also has a limited capability for the calcula- 
tion of flow about the circular and elliptic cones, but a more efficient version is available 
for those problems and is described in reference 2. Some remarks concerning the oper- • 
ation of this program for the circular and elliptic cones are relegated to appendix A. 

The present program has a built-in capability for three different conical -wing 
cross sections: flat plate, circular arc, and modified wedge. The modified wedge is a 
wedge cross section with the center ridgeline rounded by a circular arc of user -specified 
radius; a sharp ridgeline is approximated by a very small radius. Other cross sections 
can be included in the program without much difficulty. 



The mathematical method and coordinates are described very briefly, and details 
of the operation of the program are given herein. A listing of the computer program is 
given in appendix B together with a list of the subroutines and a flow chart. Appendix C 
presents a sample computation. 


METHOD OF LINES 

The method of lines was developed in complete detail in reference 1; hence, only a 
brief description is presented herein. The flow equations are initially written in a body- 
oriented, orthogonal, conical coordinate system (r,77,r), as shown from below and behind 
the wing in sketch (a), where r is the distance along a conical ray, 77 is the angle mea- 
sured from the body surface to the ray in a plane where t is constant, and t is a mea- 
sure of the arc length along the intersection of the body surface with a sphere of radius r 
centered at the body apex. Specifically, r is determined by numerical integration on the 
unit sphere. The free-stream velocity vector lies in the YZ-plane of symmetry, 

and the origin of the arc length r is taken in the windward plane of symmetry. All com- 
putations are made in the right half -plane. The integration of the system of equations is 
facilitated by a coordinate transformation which maps the region bounded by the shock and 
the body into a rectangular domain. The transformed variables are 



Sketch (a) 
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where rj = tj s (t) is the shock surface. Thus, £ = 0 on the body, and £ = 1 on the 
shock. 

The £,£-plane is divided by N + l lines parallel to the £-axis; the line 1=1 is 
taken in the windward plane of symmetry, and the line N+l is at the wing leading edge, 
where the shock is assumed to be attached. The layout of the computational lines for 
N = 6 is shown in sketch (b). At each line the system of differential equations is reduced 
to a set of ordinary differential-difference equations by replacing the derivatives 9 / 9 £ 
by finite differences. The derivative of the Lagrange interpolation polynomial is used in 
this program with an equal number of lines on either side of the line at which 9/9£ is 
computed; therefore, central differencing is obtained when the line spacing is equal. The 
initial values for the system of equations are determined from the shock relations once 
the shock shape is specified, and the equations are integrated numerically from the shock 
to the body. The system of equations is integrated simultaneously along each line 
I = 1, . . ., N. The differential equations along any line are coupled to those along the 
other lines through the finite -difference approximations to the cross derivatives 9 / 9 |. 
The equations are integrated by a fourth-order Runge-Kutta method. The accuracy of 
this method allows the use of relatively large integration steps. The integration step 
size can generally be taken in increments of -0.1 from the shock to a value of t; of 0.1 
and in increments of -0.05 and -0.025 thereafter. An iterative process based on the 
Newton method is utilized to adjust the shock shape to satisfy the conditions of flow 
tangency on the body. 



Physical ( T . Tj ) plane 


Transformed ( £ , £ ) plane 


Sketch (b) 
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CONICAL-WING GEOMETRY 


Three wing shapes - flat plate (M = 3), circular arc (M = 4), and modified wedge 
(M = 5) - are built into the program and are selected with the use of the body-selection 
trigger M. It is possible to substitute other wing cross-section shapes with little 
change in the program provided the wing shape is defined by a function with continuous 
first and second derivatives. For such wing shapes, the body geometry can be substituted 
into the logic for the circular -arc wing, and the computation for the new wing shape is 
found with the body- selection trigger M equal to 4. The changes required for wing 
shapes with discontinuities in curvature, such as the modified wedge cross section 
(M = 5), are more involved. No description of such changes is given herein, since each 
shape with curvature discontinuities must be considered individually to insure proper 
numerical integration for the body geometry. 

The compression surface of the conical wing is defined by an equation of the form 

G (vM - 0 

where x Q and y Q are the rectangular coordinates of the wing and are related to the 
Cartesian coordinates X,Y,Z by 

x Q = X/Z and y Q = Y/Z 

The coordinate X is in the spanwise direction, Z is along the axis of the conical 
wing, and the YZ -plane is the wing plane of symmetry. The windward side of the wing is 
in the lower half -plane; hence, it should be noted that Y and y Q have negative values 
there. 

The functions required are ^x> ^xx> ^y> ^yy> and G xy , where the subscripts 
denote derivatives with respect to the indicated argument. These functions, with their 
appropriate FORTRAN name, which replace those for the circular-arc wing, are as 
follows: 

G y (GX(I)), G yy (GXX(I)), and G v (GY(I)) in cards B3010, B3020, and B3030 
x xx y 

of subroutine BG, respectively. 

Gyy (GYY(I)) and G xy (GXY(I)) in cards B3080 and B3090 of subroutine BG, 
respectively. 

y Q (YOO), Gx (GXI), and G y (GYI) in cards D500, D510, and D520, of sub- 
routine DERIV, respectively. At this stage x Q is the quantity F(l). 
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G x (GXI) and Gy (GYI) in cards D910 and D920 of subroutine DERIV, 
respectively. At this stage x 0 is F(2) and y Q is F(3). 

APPROXIMATE SHOCK SHAPE FOR CONICAL WINGS 

The approximate built-in shock shape for the conical delta wings is generally satis- 
factory for starting the computations. This shock shape is an even function of £ which 
gives both r? g = 0 and the correct value of d?? s /d£ at the leading edge of the wing. 

The function is 



The value of n ■, used in the program is a tangent-cone approximation increased by a 
s, 1 

factor of 1.2 to avoid the Mach wave conditions for very thin wings at small incidence. 

In a few computations, the approximate starting value of r) . was so inaccurate that 

s, 1 

the required corrections An . were sizable; thus, a substantial "roughness" in the 
shock shape resulted and subsequent iterations failed. Even so, the first correction 
f° r 1 has been quite good, so that using that value in the approximate shock shape 
and restarting the program have always been successful. The value of l s ^ ETAS(l) 
in FORTRAN notation, is set in cards E710 and E720 of subroutine APPROX. 

PROGRAM OPERATION 

In general, the program operation for the conical-wing computations proceeds with 
little difficulty and can be made by starting from the built-in approximate shock shape. 
Instabilities can arise in some cases, and a change in some of the parameters involved 
will sometimes yield converged solutions. A number of parameters can be adjusted 
which can affect the convergence and computing time. Some discussion of these param- 
eters is given subsequently with general recommendations for their values. 

Input Description 

The following list contains the program input variables, which are arranged 
according to order of presentation in the program. 
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Input 
card no. 

1 

2 


FORTRAN 

variable 

STMACH 

GAMMA 

N 


Description 


Free -stream Mach number, M m 

Ratio of specific heats, y 

Number of lines. Line 1 is in the windward symmetry 
plane. 

For conical wings, line N + 1 is at the leading edge. 

For elliptic cones, line N is in the leeward symmetry 
plane. 

To obtain force coefficients, N must be an even number 
for the conical wings and an odd number for the elliptic 
cones. 


M 


NCASES 


NREAD 


Body -selection trigger 

M = 0 for circular cone at zero incidence 
M = 2 for circular and elliptic cones 
M = 3 for windward side of flat -plate wing 
M = 4 for windward side of circular -arc wing 
M = 5 for windward side of modified -wedge wing 
M = 1 and 6 are not operational 

Number of cases to be computed in a natural sequence 
where the converged i) . values for one case are used 
as the starting values for the next case. NCASES is 
equal to or greater than one. 

Trigger for reading in shock shape 

NREAD = 0 for built-in approximate shock shape. This 
option is satisfactory for elliptic cones which are nearly 
circular and small angles of attack. 

NREAD = 1 when input shock shape is to be read in 
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FORTRAN 

variable 

NSPACE 


NPLOT 

NPUNCH 

This 

PHIWD 

BX 


Description 


Line space trigger 

NSPACE = 1 for equal line spacing 

NSPACE = 2 gives piecewise constant line spacing in 
three segments with NA lines in the first segment, 

(NB-NA) lines in the second segment, and (N-NB) 
lines in the third segment. This option is not recom- 
mended. (See input card no. 6 for further description.) 

Trigger for punched card output used for plotting (see 
subsection entitled Plots) 

NPLOT = 0 no punched card output 

NPLOT = 1 punched card output 

Punched card output for i) . 

s,i 

NPUNCH = 0 no punched card output 
NPUNCH = 1 punched card output for each case 

information read in only for M = 5. 

Wedge angle in the plane Z = 1, 0 W , degrees (sketch (c)) 

Parameter locating x Q coordinate of junction of wedge 
with circular arc in the plane Z = 1. A sharp center 
ridgeline is approximated by a small value- for BX, for 
example, BX = 0.001. Whenever BX < XOBAR(2) (see 
section entitled Summary Print Block), line 1 is the only 
line on the curved segment. In this case, the program 
sets the body -curvature terms to zero in the differential 
equations at line 1, but not in the body -geometry equations. 



BX = BB/AB 

Sketch (c) 



Input 
card no. 


FORTRAN 

variable 


Description 


4 This information read in only if NREAD = 1. 

ETAS(I) Values of rj . which are used to start the computations 

S,1 

5 VTESTHD Accuracy criterion on maximum normal velocity component 

at body surface, in which usually a value of 10-3 suffices 

VTEST1 Trigger for modified Newton iteration. When the maximum 

magnitude of the normal velocity component on the sur- 
face VMAX lies between VTEST and VTEST1, a modified 
Newton method (ref. 1) is incorporated where the old 
Jacobian matrix of influence coefficients is used. 

6 This information read in only if NSPACE = 2. 

NA Number of lines equally spaced in first segment; must be 

an odd number to obtain force coefficients (sketch (d)) 

NB Line number at end of second segment; must be an odd 

number to obtain force coefficients 

ANA For conical wings, ANA = XI(NA)/XI(N + 1). For elliptic 

or circular cones, ANA = XI(NA) .. 

XI(N)/2 

BNB For conical wings, BNB = XI(NB)/XI(N + 1). For elliptic 

. „. TT5 XI(NB) 

or circular cones, BNB = — , - ■ 

’ XI(N)/2 
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XI is arc length along surface contour. 
Sketch (d) 



Input 
card no. 


FORTRAN 

variable 


Description 


7 This information read in only if M = 5. 

THETAD The semiangle between the wing leading edge and the 

Z-axis, 9, degrees 

ALPHAD Angle of attack, a, degrees 

8 This information read in only if M/5. 

T For conical delta wings, T is the ratio of center-line 

thickness to semispan. 

For circular and elliptic cones, T = b/a, where b is 
the semiaxis in the YZ -plane of symmetry (which con- 
tains the velocity vector) and a is the semiaxis in the 
XZ -plane of symmetry. 

THETAD 9, degrees 

For the conical delta wings, the angle between the wing 
leading edge and the Z-axis (complement of sweep 
angle). 

For the circular and elliptic cones, the cone semiangle in 
the XZ -plane of symmetry. 

ALPHAD Angle of attack, a, degrees 

Output Description 

Among the first items printed are some of the input parameters (see section 
entitled Input Description), and in addition, some preliminary computed quantities and 
control parameters (quantities described in the sections entitled Auxiliary Definitions 
and Secondary Parameters) which are not input data but which can be readily changed 
within the program. A sample computation is presented in appendix C. 

The following output information is printed for each pivotal (trial) shock shape: 
ETAS(I), ETASP(I), CP(I) (pressure coefficient) at shock, CP(I) at body, and V(I) at body 
for 1=1,.. ,,N + 1 for the conical wings and 1=1,. . .,N for the circular and elliptic 
cones. After the print of V(I) are the values of KCOUNT, VMAX, EPSIG, SPACER, 
and DETERM, followed by the corrections to the shock shape DETA(I). 
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After the solution has converged (that is, VMAX < VTESTHD, where VTESTHD 
is VTEST in the sample computation), the full results are printed, starting on a new page, 
with the input and much of the preliminary information repeated in an orderly fashion. 
This arrangement allows the printing for the preliminary iterations to be separated and 
discarded if desired. For conical wing calculations, information relating to the wing 
leading -edge shock follows this printing. The following quantities, which are measured 
in a plane normal to the wing leading edge, are printed: DELTA(N+1), BETA(SONIC), 
DELTA(SONIC), BETA(DET), DELTA(DET), BETAD(N+1), SIGMAD, VNS, and AMN. The 
coordinates of the tip Mach cone XMACH and YMACH are printed in the next block 
together with the scaled values XMACHB and YMACHB which are nondimensionalized by 
the wing semispan. The summary print block is then printed followed by the arc length 
XI(I), the body coordinates XO(I) and YO(I), the shock quantities ETAS(I) and ETASP(I), 
and finally the zeta print blocks. 

Windward-line zeta limits. - Following the ZETA = 0 print block, the limiting 
values of certain flow properties which are dependent upon the direction of approach to 
the nodal-point singularity, as described in reference 1, are printed. The values printed 
in the ZETA = 0 print block are the limits obtained by approaching the symmetry plane 
along the surface. The limits corresponding to an approach in the symmetry plane are 
tabulated in the output under the heading WINDWARD LINE ZETA LIMITS. (The entropy 
function SBAR is printed under the heading labeled S.) 

Force coefficients.- After the windward-line zeta limits, the aerodynamic force 
and moment coefficients are printed as well as the center -of -pressure location. The 
quantities printed are axial force (CZ), normal force (CY), drag (CD), lift (CL), moment 
about X-axis (CM), and the coordinates of the center of pressure (YBAR and ZBAR). The 
reference area for the force and moment coefficients is the plan area. 

Plots.- The program has a plot-option trigger, NPLOT, which can be used to obtain 
punched card output for use in another program which, in turn, rearranges the cards in 
an order suitable for plotting cross -flow streamlines, cross -flow sonic lines, and cross 
sections of the body and shock, as well as surface and shock pressure coefficients, and 
surface quantities U, W, RHO, and CROSSM as functions of the nondimensional spanwise 
coordinate, x. This second program is not included, however, because each different 
computer system has its own variations in plotting routines and requirements. It is 
hoped that the user can adapt the punched card output for these plots to his specific 
requirements. 

Appropriate labels identifying the inputs for the case for which the punched card 
output is obtained are punched in the MAIN program at cards A1310 and A 1320, and the 
body coordinates, surface quantities, and sonic -line coordinates are punched at cards 
A6960 to A7070. The quantity NZ ETA punched at card A6950 in the MAIN program 
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(computed at card L750 in subroutine PRINT) is a counter of the number of integration 
steps from the shock and is used in the plotting program. In subroutine PRINT, x s , 
which is the value of x along the shock, and the shock pressure coefficient are punched 
at cards L540 and L550. The coordinates of the shock and cross-flow streamlines are 
punched at cards L800 and L810. 


Auxiliary Definitions 

Several quantities appear in the printout of the preliminary iterations, some of 
which can be useful in evaluating the sequence of iterations. Several auxiliary quantities 
that have not been defined elsewhere are defined in the following list: 


FORTRAN 

variable 

AAST 

AMN 

BETA(SONIC) 

BETA(DET) 

BETAD(N+1) 

DELTA(N+1) 

DELTA(DET) 

DELTA(SONIC) 


Description 

Ratio of critical speed to free -stream speed 

Mach number based on component of stream velocity in a plane 
normal to wing leading edge 

Shock angle for sonic velocity behind shock, degrees 

Shock angle for shock detachment at wing leading edge, degrees 

Shock angle at wing leading edge, degrees 

Flow deflection across leading-edge shock measured in a plane 
normal to wing leading edge, degrees 

Flow -deflection angle across shock at detachment condition, 
degrees 

Flow-deflection angle across shock for sonic velocity condition, 
degrees 


DETA Correction applied to each value of rj s , A 77 

DETERM Determinant of the Jacobian, or influence coefficient, matrix 

(This matrix is normalized so that the sum of squares of the 
elements of each row is 1 .) 

EPSIGOM Parameter for controlling step size during the numerical integra- 

tion of the body geometry; used in cards C580 and C590 of sub- 
. routine RUNKUT and set in card A530 in the MAIN program 
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FORTRAN 

variable 


EPSIVAR 


ETASP 

INTO NT 

KCOUNT 

NCYCLE 


PTINF 

RANGLE 


SIGMAD 

VMAX 

VNS 

XINI 


Description 

Perturbation parameter; changes r) s to (1 + EPSIVAR)? 7 s for 
each perturbation integration; set in card A2690 of MAIN pro- 
gram and used in cards A8060, A8160, and A8210 of MAIN 
program 

Derivative of the quantity ? 7 S with respect to the arc length r, 
d^s/dr 

Number of integration steps used to determine £(N)/2 in body- 
geometry computation 

Total number of pivotal and variational integrations 

Number of iteration cycles. The first cycle always consists of 
one pivotal and N variational integrations to generate the 
Jacobian matrix. Subsequent cycles may or may not include 
the N perturbation integrations. No perturbation runs are 
made when VMAX < VTEST1 (modified Newton computation), 
and the old Jacobian matrix is used to obtain the corrections At]. 
In this case a cycle is one integration. When VMAX > VTEST1, 
one cycle consists of the pivotal integration and the N pertur- 
bation integrations required to generate a new Jacobian matrix. 

Free -stream total pressure referenced to product of free -stream 
density and square of free -stream velocity 

Relative angle of incidence for circular and elliptic cones, &/0 o , 
where 0 Q is the cone semiapex angle in the vertical plane of 
symmetry and a is the angle of attack, degrees (not printed 
in delta -wing computations) 

Angle between wing and shock at leading edge, degrees 

Maximum magnitude of normal velocity component on body surface 

Component of unit free -stream velocity in plane normal to wing 
leading edge 

Arc length to wing leading edge on the intersection of the unit 
sphere with the wing 
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Secondary Parameters 

A number of secondary parameters which control various computations have been 
built into the program. Those related to the size of the integration steps are given in the 
following list: 

Description 

Control parameter for triggering the extrapolation to the 
surface. When the G function in the denominators of 
the equations for the zeta derivatives becomes smaller 
than EPSIG, the program extrapolates to obtain values of 
the normal velocity component at the surface. This 
parameter is used in cards J960 and J980 of subroutine 
EQNS and set in card A2660 of the MAIN program. The 
normal value is 10 - 3. This parameter must be reduced 
in value when small integration steps are used near the 
body. 


EPSINT, DSMAX, DSMIN 


SPACER 


Parameters used in variable-step integration. Variable - 
step integration is not recommended for either engineering 
computations or for computations within the entropy layer. 
The program uses a fixed- step mode by setting 
DSMIN=DSMAX in cards K350 and K360 of subroutine 
RUNKUT2. Value of EPSINT is set in card A2700 of the 
MAIN program and is used in cards K1250 and K1370 of 
subroutine RUNKUT2. 

Sets the minimum distance between points to be used in the 
formula for extrapolation to body surface. This param- 
eter is used in card K540 of subroutine RUNKUT2 and set 
in card A2670 of the MAIN program. The recommended 
value is SPACER=EPSIG. 


FORTRAN 

variable 

EPSIG 


Summary Print Block 

The notation used in the summary print block is as follows: 


FORTRAN 

variable 

I 


Symbol 


Description 
Line number 
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FORTRAN 

variable 

Symbol 

Description 

PSID 


Arc tan (y o / x 0 ), degrees 

PSISD 


Arc tan (y s / x s )> degrees 

XO, YO 

x o> y G 

Cartesian coordinates of body in plane Z = 1 

XOBAR, YOBAR 

*o> 

Cartesian coordinates of body referenced to x Q max , 
where x Q max is the maximum value of x 0 

XS, YS 

x s> y s 

Cartesian coordinates of shock in plane Z = 1 

XSBAR, YSBAR 

x s> y s 

Cartesian coordinates of shock referenced to x Q max 

ETAS 

% 

Value of 77 at shock, radians (see section entitled 
Zeta Print Blocks for description of 77 ) 

BETAD 

p 

Angle between free-stream velocity vector and tangent 
plane to shock, degrees 

XI 


Arc length along the intersection of the body surface 
and the unit sphere 

CPSHOCK 


Pressure coefficient at shock wave 

CPBODY 


Pressure coefficient at body surface 



Zeta Print Blocks 

The notation used in the zeta print blocks is as follows: 

FORTRAN 

variable 


Description 

ZETA 

Independent variable, V/V s > C = 1 at shock and £ = 0 on body 
surface 

P/ROVSQ 

Pressure 

square 

p referenced to product of free-stream density and 
of free-stream velocity 

P/ROASTSQ 

Pressure 

square 

referenced to product of free-stream density and 
of critical speed 

P/PTINF 

Pressure 

referenced to free-stream total pressure 

P/PINF 

Pressure 

referenced to free-stream pressure 
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FORTRAN 

variable 

RHO 
U, V, w 

UC, VC, wc 

vcc, wcc 

VX, VY, VZ 
PSINOR 

THETNOR 
XBAR, YBAR 
XBHLD, YBHLD 

ETA 

G 

DEQNS 


AM 

CROSSM 


Description 


Density p referenced to free -stream density 

u-, v-, w-components of velocity in r-, 77 r-directions, 
respectively, referenced to critical speed 

Quasi -cylindrical velocity components in Z-direction, and directions 
normal and tangential to body contour in plane Z = 1, respectively 

Circular cylindrical components of velocity normal and tangential 
to a circle in the plane Z = 1, referenced to critical speed. 

UCC is same as UC. 


Cartesian velocity components, referenced to critical speed 

Arc tan (VX/VZ), degrees 

Arc cos (vy/\/(VX) 2 + (VY) 2 + (VZ) 2 ), degrees 

Cartesian coordinates referenced to 

C/jIIlclX 

Cartesian coordinates, referenced to x_, , of cross-flow 

streamline (isentrope) that intersects the shock at line I 

Angle measured in a plane normal to the body from ray on surface 
of body to ray in field, 77 , radians 

Function that appears as a factor in the denominator of most of the 
equations for the £ -derivatives and which vanishes at the body 
(g in ref. 1, p. 12) 

Function which is a factor in the denominator of the equations for 
£ -derivatives (D in ref. 1, p. 13). It vanishes when a line 
£ = Constant becomes tangent to a conical characteristic. 

The tangency can occur only when regions of supersonic cross 
flow (CROSSM 2 1) appear. 


J ~ 2 2 2 

Local Mach number, — — — — + w , where a is the speed of 


sound 


Cross -flow Mach number, 


\/v ^ + w^ 
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FORTRAN 

variable 


Description 


SBAR 

POROGAM 

PT/PTINF 

PT 


Entropy function, S = logj(P/PINF)p^j 
(P/ROVSQ )/p y 

Ratio of total pressure to free -stream total pressure 

Total pressure referenced to product of free-stream density 
and square of free-stream velocity 


BERNOUL 


Error in Bernoulli equation, 


1 - 


2 y 

r - 1 


£ + u 2 + v 2 

H 


+ w 


y + 1 
Y - 1 


DPDZ, DUDZ, DVDZ, 
DWDZ , DSBDZ 


dp du dv dw 
d?* d?’ d£’ dC* 


respectively 


PP, UP, VP, 

WP, SB ARP 

XB SONIC, YB SONIC 


Finite -difference approximations for , — , — 

dr dr dr’ dr’ dr’ 

respectively 

Sonic -line coordinates referenced to wing semispan, x 0>max 


Accuracy Control Parameters 

The accuracy of the computations improves with increasing number of lines N and 
with increasing number of points NP in the cross -derivative approximation formula 
only within certain limitations. Instabilities can arise for both the elliptic cones and the 
conical wings, and the instabilities are accentuated for the larger values of N. The 
integration step size, particularly near the body surface, can also influence the accuracy 
of the final results. Recommended values for computations to engineering accuracy 
(three to four figures) are given for the principal parameters. 


FORTRAN 

variable 


DS 


Description 


Integration step size from shock to body; set in cards K420 to K470 of 
subroutine RUNKUT2. Recommended values are 

DS = -0.1 for 0.1 = ZETA = 1.0 

DS = -0.05 for 0.05 ^ ZETA = 0.1 


16 


DS = -0.025 for 0.025 i ZETA ^ 0.05 
DS= -0.0125 for 0 = ZETA 5 0.025 



FORTRAN 

variable 


N 


NP 


VTESTHD 

VTEST1 


Description 


Number of lines 

For conical wings, N = 8 to 14. 

For circular cones at small incidence (RANGLE < 0.5) or elliptic 
cones of moderate axis ratio (T £ 0.7) and small incidence, 

N = 5 to 11. 

Number of points used in computation of cross derivatives; set in 
cards A680 and A690 in MAIN program 

NP = 3 for computations where computing time is a prime 
consideration. 

NP = 5 for the most computations. Larger values increase the 
computing time substantially with little change in the overall results. 
The accuracy with NP = 5 is noticeably better than with NP = 3. 

Convergence criterion on the normal velocity component at the body 
surface. VTESTHD = 10“^ to 10~4 for most cases. 

Parameter for selection of regular or modified Newton procedure. 

The modified Newton procedure is used after all the normal velocity 
components on the body are less than VTEST1. This value is 0.01 
to 0.05 for most cases. 


Limitations 

The limitations of the method are described in detail in reference 1. For the sake 
of completeness, some of the important points in regard to the delta -wing calculations are 
repeated here; the elliptic -cone cases are discussed in references 1 and 2. 

As stated earlier, this program is restricted to the supersonic flow on the windward 
side of conical wings without yaw and with shocks attached at the sharp leading edge. An 
obvious limitation in the angle -of -attack range is that a can not exceed the value corre- 
sponding to leading-edge shock detachment and should not be less than the value which 
corresponds to an expansion on the lower surface. Other limitations are in Mach number 
and number of lines. All delta-wing cases attempted by the authors with M^, £ 3 have 
been successful. If the Mach number is too low, the shock wave may lie a considerable 
distance from the surface, and unacceptable error growth may occur, as described in 
reference 1. Similar instability arises if too many lines are used; 19 lines appear to be 
the practical maximum in many cases. This maximum is not a severe restriction for the 
delta wings, since usually the use of eight to 14 lines yields excellent accuracy. 
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Special System Features 


The program makes use of certain features which are special to the Control Data 
series 6000 computer system at the Langley Research Center, and some changes may be 
required for other systems. The word length of this computer is 60 bits; consequently, 
double precision may be required on systems with 32 or 36 bit word lengths. Some 
seven-character variable names, which may not be acceptable to other systems, have 
been used in the program. The program is written in FORTRAN IV and requires a field 
length of 70Kg to compile and execute on the CDC 6000 series computer system at 
Langley Research Center. 

Langley Research Center, 

National Aeronautics and Space Administration, 

Hampton, Va. , November 23, 1971. 
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APPENDIX A 


REMARKS ON COMPUTATIONS FOR CIRCULAR AND ELLIPTIC CONES 

As already mentioned, this program has a limited capability for computing the flow 
past circular and elliptic cones, but a more efficient version is available for such prob- 
lems. (See ref. 2.) When the present program is used for such problems, the following 
remarks should be noted: 

(1) Line N lies in the leeward plane of symmetry. (There is no line N + 1 as in 
the wing problems.) 

(2) The elliptic cone solutions can be quite sensitive to the accuracy of the shock 
shape; consequently, they must be developed in incremental steps. A limited provision 
for this type of computation is provided by the parameter NCASES, where NCASES is the 
total number of cases in the sequence. Its use allows the converged shock shape for one 
computation to be used as the initial shock shape for the next computation in the sequence. 

For example, to obtain calculations for an elliptic cone with T = 0.5, a sequence of cal- 
culations starting with a circular cone (T = 1.0) and NREAD = 0 should be input; sub- 
sequent calculations in the sequence should have values of T decreasing in small incre- 
ments to T = 0.5. 
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APPENDIX B 


PROGRAM LISTING, LIST OF SUBROUTINES, AND FLOW CHART 


The computational program listing is given in this appendix together with a list of 
the subroutines and a flow chart. 


Program Listing 


The computational program listing is as follows: 


PROGRAM MA [N I (NPUT< OUTPUT .TAPES* INPUT, PUNCH) A 10 

A 20 

CONICAL FLOW BY THE METHOD OF LINES A 30 

A 40 

COMMON F ( 3 ) « OF ( 3 | « FC (3 ) , OFC ( 3 ) . AU 1(31, AB2 (3 I , AB3 <31* AB4 ( 3 ) A 50 

COMMON FUN120.6 ) .DFUn<20«6 > • FUNC (20-61 , OFUNC (20-6) ,31 <20,61 .B2<20. A 60 


16) «D3 (20,6), 34 <20>6 1 ,SBAR (20 I .DSBOZ (20) • SB ARP < 20 1 .OSBI (20 J.DSB2 <20 A 70 
21* 0S&3< SO I .OSQtf <20j ,xl <20) .xO<20l . YO<20 I • AJ <20 I • 42 < 20 ) « A3 <20 ) *A4 <2 A 60 
30 > . As < 20 1 . A6 < 20 1 . A7 ( gO 1 . AS ( 20 > . AK0 < 20 > . GX < 20 1 .GY < 20 1 . GXX I 20 > ♦ GY Y ( 2 A 90 
«0) »GXY<20 >,ETA<20 ),ETAS(20> «ETASP (20 1 -BET AD 1 20 ) «RhO ( 20 1 ,R < 20 J «° <20 A 1 00 
S) ,U(20) ,V<20 ) ,W<20) ,PP<20) ,UP(20) ,VP(20> >WR (20 1 ,XS(20>,YS(20 ) «DUDZ A I lO 
6(20), DPOZ < 20 I *0VDZ(27 I , OWDZ ( 20 ) , AM< 20 ) , S ( 20 ) «ZETA1 1 20 ) , ZETA2 < 20 ) ,Z A 120 
7ETA3I20) .ZETA4 (20 ) .OUI (20 ) . DU2 <20 ) . DU3 < 20 ) , DU4 (20 ) .OW1 (20 ),DW2(20> A 130 
B>DW3(20 > >DV4<20 I OV| (20 ) > QV2 < 20 ) « DV3 (20 ) > 0V4 ( 20 )«G(20), PS IO< 20 > .DP A 1 40 


9) < 20 t . DP 2 <20 1 ,DP3 <20 ) . f>P4 <20 > .DEONS < 20 ) . CROSSM <20 I . »HO| SEN<20 » A ) 50 

COMMON UISEN(2O).POROGAM(2O).Q<20>,OP(2O>.PS|SO«20),8ERnOUL( 2OI »XS A 160 
) BAR<20) ,rSBAR(20 ) ,XO»AR<20) , YOBAR(20 >,XBAR(20) • YBAR (20) A 170 

COMMON AAST.B11 ,B12.pl 3.B21 ,B22«B23,NSPACE,P1 ,M,N,L1 .T.THETAR.GAMM A 180 

1 A • DX I • CONI .CON2.STMACH. AB. A I t«A12,AI3,A2] .422. A23.A31 , A32 , A33 , ALPH A 190 

2AR.Nl .NDEBUG.H.HK.SlGMA.RAO.NF.NLtNES.EPSIG.NPRINT.SPACER.ULEE.UWI A 200 

3N0 .RhOLEE ,RhO(* ] NO ,NExT RAP , EPS I GOM , EPS INT ,X(N1 ,SI GNP I A 210 

COMMON XP.XIP.PHJwR.flSBAR.aS.RS.XJBSBAR A 220 

COMMON ✓ERROR/' ER( 1 2). ERR ( 12 1 «BLK< 12 > A 230 

COMMON VCC ( 2C ) , WCC ( 20 > « SBARHLD <20 > • XBHLD (201, YBMLO ( 20 ) A 240 

COMMON CP ( 20 ) , XMACHB ( 20 ) . YMACHB ( 20 ) *UC ( 20 > . VC < 20 ) , WC (20 ) , VX (20 ) • VY A 250 
1 (20>.THETNOR(20),PSINOR(20).POPT1 (20).PT0PTl < 20 1 . PT < 20 l .POASTSO <20 A 260 
2 ) . POP I NF < 20 ) « XMACH ( 20 1 , YMaCH < 20 > .CPSHOCK < 2o 1 • CP800Y (20 ) A 270 

DIMENSION I DATE <2 ) , £TAS0(20)« V0<20). 0(20,20), B<20,l), IPJV0T<2 A 280 
101. OET A < 20 ) . XREAL(20). YREAL<20). X<20>, Y<20). FK20), FIB(20>. A 290 

2 DF I DU (20. 201 A 300 

DIMENSION DMOLD (20 .20) A 310 

DIMENSION XBSNC < SO ) • YBSNC ( 50 ) A 320 

EQUIVALENCE <0 « OF ( DU ) A 330 

COMMON /BLOCK 1 / I STL .NCYCLE , NCOUNT A 3*0 

COMMON /BLOCKS/ NA.NR. ANA ,BNB .CNC «K JUNCT A 350 

COMMON /BLOCKft/ NEGP A 360 

COMMON /BLOCKS/ NCNT A 370 


NTF*N A 810 

IF <M.EO. 1 .OR.M.EO.6 ) NTF.N-1 A 820 

IF (M.EO.l 1 READ (5.1061 CNC A 830 

IF IV. £0. 5) READ<5.1o6) PHI WD.OX A 840 

IF (M.EQ.5I PH|WR*PHJWD/RAD A 850 

NL!NfS*N A 860 

NLINFPI=N+1 A 870 

LIM1T«N A 880 

IF (M.E0.3.0R.M.E0.4.0R.M.E0.S ) L I M I T*NL I NEP I A 890 

IF (NREAD.EO.il READ <5.123) < ET AS ( I ) • I =» 1 «L I M I T 1 A 900 

A 9J0 

VTEST1 MUST BE GREATER THAN OR EQUAL TO VTESTHD A 920 

A 930 

READ (5.106) VTESTHD. VTEST 1 A 940 

KCOUNTsO a 950 

NA = 1 A 960 

ANA* 0,0 A 970 

NB*I A 980 

BNB-O.0 A 990 

A 1000 

FOR M-0.2 N.NA.NB AlL ODD FOR BOTH NSPACEM.2 A1010 

IF NSPACE*2 SET N.gT.NS.GT.NA.GT.I . IF A NY OF THESE QUANTITIES A 1020 
ARE EVEN-THE FORCE COEFFICIENTS ARE NOT COMPUTED A 1030 

FOR M*3.4 N MUST Be EVEN AND NA AND NB MUST BE OOO A 1040 

FOR M* 3 • 4 X | N 1 TAKES ON THE VALUE OF XHN+1) AIOSO 

A 1060 

IF (NSPACE.E0.2.AND.M.NE.6I READ (5.1 IS) NA . NB.ANA .BNB A1070 

A 1080 

KJUNCT MUST Be INTEGER OR ELSE CHANGE COMPUTATION OF AFAC A >090 

A 1 100 

IF (NSPACE.E0.2.AN0.M.E0.6) READ (5.140) NA .NB.KJUNCT . ANA ,CNC AlllO 

PRINT 109. N.M .NREAO .NSPACE.NP A 1 1 20 

IF (M.NE.6) PRINT 116* NA , ANA .NB . BNB A 1130 

IF <M.EO,6> PRINT 14| . NA .NB .KJUNCT . ANA ,CNC A1140 

PRINT 127. VTESTHD. VTEST1 A1150 

IF (N.EO.l) VTEST 1 ■ VTESTHD A1160 

DO 104 Ll’l.NCASES All 70 

NCNTsNCNT+l AIIBO 

PRINT 110 A 11 90 

IF CM.eO.S) READ (3.1061 THETAD . ALPHAD A1200 

IF (M.NE.5) READ (5.1061 T.THETAD.ALPMAD A1210 

IF (M.NE.S) GO TO 3 A 1220 

AB * T AN ( T MET AD/P AO ) A1230 

BSBAR»BX»A0 A 1240 


DATA ( BLK ( I 1 . | a 1 . I 2 ) /4MBLK ] , 4H8LK2 , 4HBLK 3 . 4 HBLK4 , 4 HBLK5 • 4 HBLK6. 4HB A 380 
1LK7 ,aHBLK8.4HBLK9.5HbLK10,5H8LK1 I .5HBLKI2/ A 390 

DATA <EP< I > . J» J . 12 j/jMEd ,3HE»2.3HEB3.3HEB«. 3HEPg, 3HERS. 3HER7.3HER A 400 
I 8 • 3 HfR9 • 4HER 1 0 .4 HER 1 1 . AHER J 2/ A 410 

DATA (ERP( I > , I ■! . 1 2 1/4HERRI .4HERR2.4HERR3.4HERR4 ,4HERR5.4HERR6.4HE A *20 
1 RB7 . 4HERR8. 4HERR9 • 5MeRR1 0 .5MERR I 1 .5HERR12/ A 430 

CALL OAYTIM ( t DATE I A 4*0 

PRINT 1 1 1 . I DATE A 450 

PR INT 1 1 O A 460 

PRINT 11 J, 1DATE A 470 

PRINT 1*5 A 480 

PRINT 146 A 490 

POINT 147 A 500 

RAD*57, 29577951 A 510 

PI *3. 1*15926536 A 520 

EPS 1 GOMm .001 A 530 

PGAM* 1 .0 A 540 

NDEBUG*1 '■ A 550 

ISTl*1 A 560 

NCNT*0 A 570 

KTRANSF* I A 580 

5LOPF=l. A 590 

BX*I. A 591 

1 READ (5.1061 STMACH, GAMMA A 600 

IF (ENDFILE 5) 105,2 A 610 

2 CONTINUE * *20 

NEGP* 1 A 630 

AAST=SQR7 (( GAMMA-} , (/(GAMMA+1 . )+2./< (GAMMA, l . )»S7MACM*»2 ) ) A 640 

AASTSO*AAST**2 A 6S0 

READ 13.1071 N.M.NCASES.NREAD.NSPACE . NPLOT . NPUNCH A 660 

IT (N.EO.l 1 M*0 A 670 

IF (M.EO.21 NP«3 A 680 

IF (N.NE.2) NP*S A 690 

A 700 

BODY GEOMETRY INDICES A 7|0 

M*0 ZERO- INCIDENCE CIRCULAR CONE A 720 

M*1 *** NOT OPERATIONAL -WINDWARD SIOE OF ELLIPTIC CONE A 730 

M=2 CIRCULAR ANO ELl-l p 7IC CONE A 7*0 

M*3 WINDWARD SIOE OE FLAT PLATE WING A 750 

M*4 WINDWARD SIOE OF CIRCULAR ARC WING A 760 

M=5 MODIFIED WEDGE A 770 

M =6 *** NOT OPERATIONAL - WINDWARD SIOE OF PLATE WITH ROUNDED A 780 

EOGES A '790 

A BOO 


RS=BSBAR/SIN(Ph1WR) A 1 250 

T*RS/AB»( 1 .-COSCPHIWH) l + TAN (PHI WRl* ( I ,-BXl A 1 260 

3 CALL OAYTrM f I DATE ) A 1270 

PRINT III. IDATE A 1260 

PRINT 108. STMACH. GAMMA. T.THETAD.ALPMAD A1290 

IF (M.E0.5I PRINT 1 51 « PHIWD.BX A 1 3Q0 

IF ( NPLOT. EO. 1 1 PUNCH 123. STMACH . GAMMA . T . THETAD . ALPHAD « SLOPE A1310 

IF (NPLOT.EO.il PUNCH 107. N.M • KTRANSF A 1 320 

PRINT 113. EPS I GOM A 1 330 

THETaR* THEY AO/RAO A 1 340 

ALPHAR-ALPHAD/RAD a I 350 

IF (M.EO.21 RANGLE«ALPHAR/ATAN(T»TAN (THETAR 1 | A l 360 

IF (M.EO.2) PRINT 142. »ANGLE A 1 370 

IF (M.EO.21 A*P1 *T*TAN<TH£TARl**2 A 1 3B0 

IF (M.NE.2I A«TAN (THETARl A 1 390 

A A * I . / ( GAMMA* ST MACH* 42 I A1400 

GAMX*I. /GAMMA A 1410 

PT|NF»AA* ( 1 (GAMMA- | . > /2 . *STMACH« *2 1 ** (GAMMA/ ( GAMMA- 1 . ) ) A 1420 

PRINT 125. AAST.PTtNF AI430 

SINALP>SIN( ALPHAR 1 A1440 

COSAlP*COS( ALPHAR ) A 1450 

SINTHET«SIN(THETARi A 1 460 

COSThET-COSC THETAR) A 1470 

A14B0 

SELECTION OF BODY GEOMETRY M-0 - ZERO-1 NC IDENCE CIRCULAR CONE* A 1490 

M-2 CIRCULAR AND ELLIPTIC CONES A15O0 

AI510 

IF (Ll.NE.ll GO TO 5 A 1520 

4 THOLD“T A 1530 

THETHLD*THETAR A 1540 

EPSlHLD*EPSIGOM a 1550 

GO To 6 A 1560 

5 IF ( ABS<THOLD-T ) .GT. | .E-05.OR.ABS(THETHLD-THETAR).GT.l .E-051 GO TO AI570 

1 4 A15B0 

IF rw.£Q«3*OR,M.EQ.4 , OR.M.EQ.5 ) GO TO 7 A 1590 

GO TO I 7 A 1600 

6 CALL BG A 1610 

IF ( M.EO. 3.0R. M.EO.4 . OR. M.EQ.5 1 GO TO 7 A1620 

GO TO 16 A 1630 

A 1 64 0 

CALCULATION OF SIGMA ON LINE N+ 1 FOR M»3;*.5 A 1650 

A 1660 

7 VNS*SQRT I S 1 NTHET**2*C.0SALP**2+S I NALP**2 ) A1670 

l*N*l A 1680 
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APPENDIX B 


AMN*STMACH*VNS 
IF tm.EQ.Si GO TO 9 

ANUM*GX (I J*SINTHET*C0STMET*COSAt_P-GY( I )*SI NALP4 ( XO ( I l*GX( I >4YO( I >* 
1GY( | ||*StNTMET**2«C0sA»-P 
OENOM*SQRT(A2< I I )*VNs 

If (oenom.gt.i .e-ioi go to a 

PRINT 114. ER(2). I.VNS.AKN.AMUN.SINTHET.COSTMeT.SINALP.COSALP.GXII 
1 1 .GY ( I ) .XOC I ) . YO< ■ 1 . A2 ( I l.DENOM 
STOP 0103 

0 SlNOELN*ANUN/DENOM 
DELTAN*AS(N(S JNDELN) 

GO TO l 0 

9 PHIWB»ATAN<TAN(PHIwR)/COS(TME:tAR) ) 
ALPHAB»ATANtTANCALPHAR>/SIN(THETAR* > 

DEUT AN* ALPHAB+PH1 *B 

10 COTAN0N*l »/TAN (DELTA* > 

IF (NOEBUG.EO.O ) PRINT 114. BLK (2 ) . I . VNS. ANN. ANuM . OENOH . S 1 NDELN.OE 
I L TAN , COT ANON .PH I FB . AlPHA3 
QUAM*l ./<4 .*GAMMA*AMn**2 1 
GAMP 1 *G AMMA+ 1 * 

OUAN] -GAMP1*(GAMP1*AnN** 448.*(GAMMA-| . ,*AMN**2416. ) 
QUAN2*GAMPl*<GAMPI*A M N**4~2.*<3.-GAMMAl*AMN**24GAMMA49. 1 
IF fOUANl .GT.I .E-20.AND.QUAN2.GT, J .£-20) GO TO II 
PRINT 114. ER<3>. ! .QuANl .QUAN2 
STOP 0104 

11 SlN8D*SQCT<QUAN*(GAMpl*ANN**2-4.*SORT<OUANl )>» 
SIN8s-SQRT<QUAN*(GAMpl*AMN**a-(3.-GANMA)4SORT(QuAN2> » | 
BETOB-ASINCSINBOI 

B€TSR*ASIN<S!N8S) 

IF (NOE 6 UG.EO.O I PRINT 114. BLK <3 ) . I .QuAN .GAK>1 .OUAN I «QUAN2 .S I NBO • 
1 S I N0S > SET DR i BETSP 

COTDOET *TAN { 6ETOR )• ( GAMP 1 *AMN**2/(2»* I AMN**2*S IN (BETOR ) **2—l •»)*!• 
1 I 

GOTO SON* TAN (0ETSR 1* < &ANP 1 *AMN**2/ia.* < AMN**2*S IN ( 8 ETSR >**2-1 , 1 l~I • 
I ) 

CELT AOT*AT AN ( I ./COTOOET) 

DEUTASN*ATAN( 1 ,/COTDsON) 

OELT AND*D£LT AN*RA0 

eerS0*8ET5R*RA0 

DELT ASO*DELTASN*RA0 

8ETod»BETDR*RAO 

DELT AOO*DCLT AOT*RAO 

PRINT 128. DELTAnD.BeTSD.DELTASO 

PRINT 129. BETDO.DCLTAOD 


A 1690 
A I 700 
A1710 
A 1720 
A 1730 
A I 740 
A 1750 
A 1760 
A1770 
A17B0 
A 1790 
A 1800 
A 1 8 1 0 
A 1820 
A 1630 
A 1840 
A 1 BSD 
A I860 
A 1870 
A 1880 
A 1890 
A 1900 
A I 910 
A 1920 
A 1930 
A 1940 
A 1 950 
A I960 
A 1970 
A 1 980 
A 1990 
A2000 
A201 0 
A2020 
A2030 
A2040 
42030 
*2060 
A2070 
A 2080 
A 2090 
A2100 
*2110 
A2120 


C A2570 

c INITIAL VALUES OF INTEGRATION PARAMETERS A2580 

C A 2590 

17 J*0 A2600 

NCOUnT«0 *261 0 

NCyclE* 1 *2620 

NPIV-0 *2630 

NSTEP* l A2640 

NPRINT-1 A 2650 

EPS I G* .001 *2660 

SP*CER«EPSIG *2670 

EPS l G**X *EPS I G A2680 

EPSiV*R»l .E-06 *2690 

EPSINT ■ *023 *2700 

NMAX-20 *271 O 

!NTSTEP*0 *2720 

C *2730 

c COMPUTE INITIAL VALUFS FOR INTEGRATION A2740 

C A2750 

18 NLINeS*N A2760 

IF (nCOUnT .EQ.O • AND.h*’ IV. LE • 1 I NSKIP-0 *2770 

IF ( N» NE ■ 1 1 0X!>X|(2)-XI II) *2780 

IF (l^*>fl|N^.CQ.t•Ah^O. N PlV•EO•0) GO TO 19 *279 0 

GO To 20 *2800 

19 CALL DAYTIM (IDATE) *2810 

PRINT 130. NCYCLE. IDATE A2B20 

PRINT 122. IETASI I) » 1*1 .LIMIT! A2830 

20 CONTJNUE *2840 

IF (nCOUNT.EO.O*ANO.NP1V.EO.O.AND.NPUNCH.EQ«1 ) Punch 126« T.THETAO A28S0 

l.ALPH*O.M A 2860 

IF < NCOUNT. EO.O- AND. r*>! V.EO.O. AND.NPUNCH.EO. I 1 PUNCH 123. (ETAS (II A2870 

I •!"!. LIMIT) A 2880 

DO 21 !•! .LIMIT A2890 

IF (ETAS( II .LT.O.Ol STOP 0177 A2900 

21 CONTINUE *2910 

DO 30 1*1 .LIMIT *2920 

XZERO*XI(J> *2930 

IF ( t.EO.NLlNEPl ) GO TO 22 *2940 

IF (M.NE.O) CALL LGRaNGE (M. I . K#».NL 1 NES .NL I NEP I . NOEBUG . XZERO , x l .ET *2950 

1AS.X.Y.ETASPII 1) *2960 

IF (M.CO.O) ET*SP(1)*0.0 *2970 

22 ZETA.1.0 *2980 

ETA ( | ) *ZETA*ETAS ( ! l *2990 

CONImSlNlETAU > > A3OO0 


IF (DELTAN.GT.OCLTADr) PRINT 130 A2130 

IF CDELTAN.GT.OELTADT) GO TO 104 A2I40 

BETan*.8*BETSR A2130 

AS»2.*AMN**2*COTANDN A2160 

BS--(2.+(GAMMA4l.|**MN**2> A2170 

CS“2.**MN**2 A21B0 

TERM4-2.4COTANDN A2190 

IF (nDE 8UG.EQ.0I PRINT 114. 8LX(4), I .COTDOET • COTDSON.oELTADT .OELTA *2200 
lSN.DELT4ND.aerS0.0eLr4SO.GET0D.DELr400.BeTAN.AS.BS.CS.rERM4 422(0 

12 SINBETN*SIN(BETANI A2220 

COSBETN-COS(BETAN) *2230 

SNSOaTN-SINaETN**2 *2240 

TAN8ETN-TAN(BETAN) ' *2250 

FUNcTON-AS*SNSQBTN+BS*TANBETN+CS*TANBETN*SNSQeTN-TERM4 A2260 

DrUNCTN*2.*AS*SIN8ETM*COSBETN4«S/COSBETN**24CS*(T4N8ETN**242.*SNSQ A2270 

I BTN) A2280 

OeCTAN*-FUNCTON/OFUNCTN A 2290 

BETAN«8ETAN+DOETAN *2300 

IF (NOEBUG.EO.O ) PRINT 114. BLK { 5 1 . J .S I NBETN. COS0E TN.SNSOBTN . TANBE A2310 
1 TN.FuNCTON.OFUNCTN.ObETAN.BETAN A2320 

IF (ABS(DBETAN).GT.l ,E-06> GO TO 12 *2330 

S1GNP1-8ETAN-DELTAN A2340 

BETADIN+l I-0ETAN4RAD *2350 

ETAS(N+1 1*0.0 A2360 

ETASP(N41 I«-TAN(SIGNPI ) A2370 

S1GMA0-SIGA8»1*RAD A2380 

PRINT 132. BETAD(N+ 1 ). SI GMAD . VNS. AMN *2390 

IF (N0EBUG*EQ.0 > PRINT 114. BLK (61.1 .SI GNP1 .BE TAD (NY I ) .ETAS (N4l I .E A24Q0 
1 T*SP (N+ I ) A2410 

JF | M.EO.3) GO TO 13 *2420 

IF (M.E0.4) GO TO 14 A2430 

IF <M.EQ*3) OYOOX-TAn(PHIXR) *2440 

IF (M.E0.5) GO TO 13 *2450 

13 DY0DX*0.0 *2460 

GO TO IS *2470 

)4 RC*T*NCTMeTAR)4(t.4T*#2)/(2.»T) *2480 

DYODX"AB/SQRT(RC**2-AB**2) A2490 

13 TAP#»MlN»DYODX/COS(THeTAR) A 2500 

PNIN-ATAN(TANPHIN> 42510 

OYSDX=COS(THET4R)4TAN(SIGNPl4PHlN| A2520 

IF (NOEBUG.EO.O I PRINT 114. BLK C 7 ) , I .OYOOX .RC .TANPHIN ,Pm I N.DYSOX A 2530 
16 IF (MtEAO.EQ.l .AND.Ll .EO. I I GO TO 17 A2S40 

- IF (Ll.NE.l) GO TO 17 A 2550 

CALL APPROX *2560 


CON2.COSIETAI I > 1 A 30 lO 

M«CON2-AKB( 1 )*C0N1 A3020 

MK-CONl+AKBCI >*CON2 A3030 

XOBAR ( 2 1 *X0 ( 2 ) / AB *3031 

IF (M.E0.5.AN0.BX.LT.X08ARC2 ) I H-C0N2 *3032 

IF (M.EO.S.4ND.BX.LT.XOBARC2 1 I HK.CON1 *3033 

IF < 1 .EO.NL I NC PI ) S1GFA-SIGNP1 *3040 

IF C | .EO.NLINEP1 > GO TO 24 *3050 

IF (ABS(H).GE.I .E-07) GO TO 23 *3060 

PRINT 114. ER(1 >. I.ZeTA.ETASC 1 >.CT*< I I.CON1 .CON2, AKB( A3070 
STOP *3080 

23 TANS I G« — ETA$P ( I I/M A3090 

SI GMA*ATAN( T ANS I G l *3lOO 

24 S1Gm*0«SIGMA«RAO *3110 

IF (NOEBUG.EO.Ol PRINT 114. BLK ( 1 j . 1 .ZET*.eT4( I I . CONI .CON2.ETAS ( I I A3120 

I « AKB ( I I.H.KK.TANSIG.sIGNA.SIGMAO *3130 

CALL OIRCOS I I 1 *3140 

CALL SHOCK (I) *3150 

IF ( f.NE.NLJNEPl ) GO TO 29 *3160 

UC< 1 ) ■* 1 3*V ( 1 )4A23*W< 1 )4*33*U( 1 1 *3170 

VCM |*Bll*VI l)*B12»X|) )>Bl3*UU > *3180 

WC ( I )»Q21 *V( I >4B22*W( I 14023*U( I > *3190 

DENOM* 1 .42./ C (GAMMA- | . )*STMACH**2 > *3200 

8USO*U( | >**2*V( 1 )**24»( I 1**2 *3210 

BERNOUL < 1 1*1 . - ( 2. *G*MMA*P ( I >/(RM0{ I 1* (GAMMA-1. 1 )4BUSO***ST«*2 )/OCN A3220 
lOM A3230 

ASO*G*MMA*P( 1 l/RHOC I ) 2 j c m m *3240 

AM ( 1 >*SORT(AAST*« 2 *BuSO/*SO) *3250 

CROS 5 M ( I ) *SORT (AAST**2*( (BUSG—U ( I )**2>/ASQ> 1 *3260 

POBOGA*(t )*P(I 1/RMOI ( )**5AMM4 43270 

S( I l**LOG(P( 1 >*GAMMA*STMACH**2/RM0( I 1 **G*MMA ) *3280 

SBAR((|-S(I! *3290 

IF (NCYCLE. EO. I . AND. NPIV. EQ.O) GO TO 25 *3300 

GO TO 29 *3310 

C *3320 

C COMPUTATION OF MACH CONE FROM XING APEX *3330 

C *3340 

25 OENOM»SORT(U( I )**24X( I )**2) *3350 

** 1 *U( I > -'DEVON *3360 

AAZ-«( I l/DENOM *3370 

AMU*AS IN ( I ./AM (111 *3380 

Cl 1-A*2**214A*1**3I *3390 

C12"**2**224**l**32 *3400 

Cl 3-4*2**234** 1**33 *3410 
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C31 «*A1 *A2I -AA2»Aat *3420 

C32=A*I •A22-AA2*A32 *3430 

C33=A*I *A23-AA2«A33 *3440 

8 1 GA ■ A l 1 4*2+C3l **?-Cl 1 **2*TAN { AMU ) **2 *3450 

0 I G8« A 1 2**24C32**2-C J 2**2*T AN I AMU) **2 A3460 

r*C»l ./COSt AMU) **2 A 3470 

B IGC«-2«*C»1*C12*Pac A 3480 

0 IGD«-2«*CJ I *Cl3*P*c A 3490 

0 IGE»-2»*CI2*C!3*Pac *3500 

RtGF=AI 3**2*C33»*2 _ci3*42»TAN«AKU)»*2 A3510 

JF (NDEBUG.EQ.O) Print 114. BL<(2).l .ZETA.A2I .A22.A23. A3I .A32.A33. *3520 

I DENOM. AA1 .AA2.UCI ).w<l } . AMU . AM ( I » .Cl» .CI2 .CI3.C31 tC32.C33.9IGA.SIG *3530 
2B.FAC«0IGC.OIGO.0lGE.BtGF *3540 

OSORT*ABS<BIGO**2-.4 . *0 IGA. B IGF » A 3550 

XOO= (-0!GO+SQRTtOSOOT» )/<2.*BIGA J *3560 

Y0O®0.0 *3570 

OYSOXSO“OVSOX**2 *3580 

As*=eiGA-»erGa*orso)rso*e!GC*Dvsox *3590 

BS «-2 . * AB*B I GB*Oy=0XS0 -B 1 GC*AB*DYSDX*BI GO+B 1 GE»OYSOX *3600 

CS*=BlGB*A9**2PDYSQxSO-0IGE*AB*DYSDX+01GF *361 0 

QSQRT • ABS <BS**2— 4 .# as*CS I *3*20 

XSMOCXA ( -8S + SQRT < QSQRT 1 1/(2. *ASI *3630 

VSHOCX* <XSMOCK-ABI*OVSOX *3640 

NJ-I *3650 

XMACHft 1"XOO *3660 

YNACH(1)*0.0 *3670 

XMACM8I 1 l«XMACH<t l/TAN I TH£TAR » *3680 

YMACHSt 1 |=YMACH<1 l/T AN ( THET *R ) *3690 

IF (NDEBUG.EQ.O ) Print HA. BtX OJ. I .XOO.YOO.DYSOXSO.AS.OS.CS.XSHO *3700 
JCK.YSMOCK. XMACH (J ) • YmACH f I } .XMACHBM ) . VMACH0 ( I > A3710 

DO 26 NJ-2.10 *3720 

ANJ=NJ *3730 

YMACH ( NJ ) ■ • l * ( ANj--| . )»YSH0CK *3740 

8X IG>B I GC*YMACH (Nj )+n!GO *3750 

CX I G = S 1 GB» YMACH (Nj , **2+B IGE* YMACM I NJ ) +B I GF *3760 

OSQRT ■ ABS ( BW l G**2 -4 ■ .B I G A »c« IGl *3770 

XMACH (NJ I » ( - 0X I G.5.QRT ( 3S0RT > )/(2.*BlGA> *3780 

XMACHB ( NJ )= XMACH ( Nj )/T AN < THE TAR ) *3790 

YMACHB < NJ I .YMACM I Nj |/TAN( THE TAR ) *3800 

IF (NDEBUG.EO.O J PRINT 114. BL* (4 ) ,NJ .YMACH (NJ > .BX IG.CX1 G .XMACH (NJ *3810 
l | , XMACHB(NJ). YMACHB (NJ) *3820 

26 CONTINUE *3830 

NJ* K | *3840 

XMACH INJ»*XSHOCK *3850 


YMACH (NJ)-YSHOCK *3860 

XMACH0<NJ>*XMACH(NJ!/T*N(TMETAR ) A 3870 

YMACHB (NJ)» YMACH (NJ >/TAN (THE TAR 1 *3880 

POASTSOf I »*P( f I/AASTSO *3890 

POPT | ( I 1*P( I l/PTINF *3900 

POP!nF( I |« p( I >*G*hMA*STMACH**2 *3910 

VX( J >=A) 1 *V( I I4A2I *wn >+AJ) «UI 1 » *3920 

VY< I )S*I24V( I ) +A22.*, I |.A32«U< 1 I A3930 

XQAR( n -A31/(A33*AB1 *39*0 

YBAR( I »-A32/(A33**ei *3950 

QUANZ'XBARt I »**24Y0A»( | )*#2 *3960 

IF (M.NE.3.0R. (M.E0.3.AN0.QUANZ.GT.1 .£-0711 GO TO 27 *3970 

VCC< I >*VX( 1 » *3980 

*CC( |)*VY( | > *3990 

GO TO 28 *4000 

27 RBARwSORTlOUANZ I *4010 

VCC< I )« CxBARC 1 l*V*( I | +YBAR ( I >*VY( ! | )/RBAR *4020 

XCC< 1 ) * ( -YBAR ( I >*VX ( | I +XBAR ( 1 )*VY{ I ) )/RB*R *4030 

28 PSINORI t >**TAN2(VX( I ) .UC( I > |*R*D *4040 

TMETnOPM I j.ACOSt AfiS ( VY ( I > I/SORT <6USO) >*R*D *4050 

PTOPTI < I ) * < POROGAN ( I ,/AA»*« (-1 ./ (GAMMA- 1. I I *4060 

PT(I >=PTOPTl (I l*PTlNF *4070 

29 CP( I )*2. *<P< I >-i./'(GAMMA*STMACH**21 ) *4060 

CPSMOCK ( I ) -CP ( I ) *4090 

30 CONTINUE *4100 

IF (NPR1NT.E0.2.*'TO. (M.EQ. 1 .OR.M.E0.6«O»- f M.EO .2 . AND. T.LT . I .01 I) G *4110 

10 TO 31 *4120 

GO TO 36 *4130 

31 DO 33 I-I.N *4140 

JMl-l-1 *4150 

IM2-1-2 *4160 

IF* ( 1 .£0* I I IM1*2 *4170 

IF (I.EO.l) IM2-3 *4180 

IF (l.EO.2) I Ml 41 *4190 

IF (|.E0.2) IM2»2 *4200 

IF (SBARl I >.LT.S8*R( |M1 ).AND.S0*R( |Ml l.GT.SBARI IM2» 1 GO TO 32 *4210 

GO To 33 *4220 

32 JJ=t *4230 

JJMI ■ (Ml *4240 

JJM2.IM2 *4250 

33 CONTINUE \ *426 O 

DENOM* (XI ( JJl-XJ | j jm j ) )«SBAR ( JJM2 ) - ( X I ( JJl-XI ( J JM2 ) >*58AR( JJM| ) + (X *4270 

1 | ( JJM1 >-X! ( JJM2 ))*SB*R < JJ I *4280 

ANUM»-(X1 ( JUM| )»»3-xt ( JJ)**2 ) *SBAR ( J JM2 1“ < X I (JJ)**2~XI (JJM2)**2)*S *4290 


1BAR( JJM1 }* (XI (JJMI ) P*2-X I ( JJM2 >4*2 ) » SB AR ( J J I *4 300 

X!ST».5»ANUM/DENOM *4310 

IF < JJ.NE. 2 1 GO TO 34 *4320 

X I ST .0. *4330 

SBARMX=SBAR( 1 ) *4340 

GO To 35 *4350 

34 CONTINUE *4360 

TERM 1 = ( X I ST-X I ( JJMI ) |*(XIST-Xl < JJ| I *5B*R ( JJM2 1/ ( (X I ( JJM2 )-XI ( JJMt 1 *4370 

1 ) * ( X 1 ( J JM2 1 —X I ( J J 1)1 *4380 

TERM2-(XIST-XI ( JJM2) ) * < X I ST-X I ( J J > )«S0*Rt JJ»l )/« «Xl (JJMI l-XI (JJM2) *4390 
I >* (X I ( J JM 1 ) — X I ( J J ) ) 1 *4400 

TERM31 (X I ST-X I ( JJM2 » )* (X1ST-X1 (JJMI ) )*SB*R ( j j )/ I (XI » JJl-XI ( JJM2 I )• *44 | 0 

I (XI (JJl-XI (JJMI 111 *4420 

SBARMX=TERM1 ♦TERM2*TERH3 *4430 

35 PGAM.AA*EXP( SBARMX ) *4440 

36 IF (NPRINT.EQ.I .AND.NPIV.EO.OI GO TO 37 A4450 

GO TO 38 *4460 

37 PRINT 131. (ETASPd >•!■! .LIMIT! ‘*4470 

PRINT 133. (CPU ) . 1*1 .LIMIT) *4480 

38 IF (LIMIT. EG. N) GO TO 39 *4490 

FUN(lIMIT.2)«U(UIMIT» *4500 

FUN( L IM1T.3)»P(UIMIT) *4510 

FUN(LlMIT.4)-V(LIMIT> *4520 

FUN(LlMIT.5)-W(LIMlT) *4530 

FUN (LIH1T.6 I “S8AR (LIMIT) *4540 

c *4550 

c DUMMY INITIALIZATION OF EXTRAPOLATION PARAMETERS *4560 

C *4570 

39 DO 40 I'l . N *4580 

ZETAltl)- 1.0 *4590 

ZE TA211 1*1.0 *4600 

ZET*3( I >•! .0 *4610 

ZET*4(I)-t.0 *4620 

DUI (11=1.0 *4630 

DUE ( I )«1 .0 *4640 

DU3<I)=1.0 *4650 

DU4< 11=1.0 *4660 

DPI (|1=1.0 *4670 

DP2 ( I ) =1 .0 *4680 

0P3( 11=1.0 *4690 

QP« (11=1.0 *4700 

DVl ( |>= 1.0 *4710 

DV2C 11=1.0 *4720 

DV3( 11=1.0 *4730 


DV4( t)«1.0 *4740 

0X1(11=1.0 *4750 

DV2 ( | ) > 1 .0 *4760 

0X3 ( 11=1.0 *4770 

0X4(11=1.0 *4780 

DSB1 <!)•!. 0 *4790 

DSB2 (I>=1.0 *4800 

OSB3( 11=1.0 *4810 

DSB4 (11=1.0 *4820 

40 CONTINUE *4830 

NZET1«0 *4840 

NF«6 *4850 

ZET*«1.0 *4860 

DZETA — .1 *4870 

DO 41 I =1 .N *4880 

FUN ( | . 1 ) =ZET A *4890 

FUN( 1 .2 )»U( I ) *4900 

FUN ( 1 . 3 ) =P ( I I *4910 

FUNI I .4 >»V( I ) *4920 

FUN (1*5) “X ( 1 ) *4930 

FUN (|.6> =SBAR ( 1 ) *4940 

OFUNI 1 . 1 l-DZETA *4950 

FUNC ( I .2 )=U( I ) *4960 

41 CONTINUE *4970 

C *4960 

C INTEGRATE EQUATIONS FROM ZET*=1 TO ZETA=0 *4990 

C *5000 

00 72 1 N7CNT = 1.1 OOOOPi *5010 

CALL OERIV2 (DZETA. No 1 *5020 

IF (NEGP.EO.O. AND.NPR1NT.EO. I ) GO TO 73 *5030 

IF (NEGP.EQ.O. AND.NPRINT.E0.2.ANO.L1 .EO.NCASES 1 GO TO 1 04 *5040 

IF (NEGP.EO.O. AND. NPRINT.EO. 2. AND. LI .NE.NC*SES 1 STOP 7776 *5050 

42 IF (nPRINT.NE.Z) GO TO 66 *5060 

NZETj=NZET1*l *5070 

DO 43 | =1 • N A50BO 

ZET A .FUN (1.1) *5090 

Uf I I =FUN ( 1.2 I *5100 

P( I ) =FUN( 1.31 *5110 

V( I )=FUN( I .4) *5120 

■ ( I ) .FUN (1.5) 30 

S8*R( I »*FUN( I .6) *5140 

DZET*=DFUN( I .1 ) *5150 

DUDZl 1»«DFUN( 1 .2 I *5160 

OPDZlI )=DFUN< 1.3) *5170 
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DVOZ( I l-OFUNC 1.4 J *3180 

0W0Z ( I ) 'DFuni I . 3 j *5190. 

OSBOZC I >-DFuN< I .6> AS200 

43 CONTINUE *5210 

IF (M.£a.3.0R.M.Ea.4.0R.M.E0.3> PGAM*PWOGAH (N*l ) *5220 

U»'U( 1 > *5230 

QMOV-RMOCII *5240 

SV=SBAR(1> *5230 

PORGAMM’POROGAM ( 1 ) *5260 

UL-U(N) *5270 

RHOL-RHO(N) *5280 

SL»SflAR(N> *5290 

PORGAML-POROGAM(N> *5300 

IF (M.EQ.3.0R.H.E0.4.0R.H.E0.5 I GO TO 44 *5310 

IF It.EQ.I.) PGAM-POPGAMW *5320 

WClt-O. *5330 

V ( N ) -V ( 1 ) *5340 

44 IF (M.EO.Ol GO TO 60 *3350 

IF (ZETA.NE.O.O) GO TO 60 *5360 

C *5370 

C COMPUTATION OF CORRECTED SURFACE VALIAS *5380 

C *3390 

EPSISEN-I .E-07 *3400 

TERM | - C 1 *42./( (GANNA— 1 • )*STMACH**2 I l/AASTSO *3410 

FAC-(2. -GAMMA >/C (GANMA-1 « »«AASTSO» *3420 

DO 47 I *1 .N *3430 

IF tr.GT.I.I GO TO 43 *3440 

RHO (tl-CPCI l/PGAM |»» gAMX A 3430 

GO TO *6 *5460 

43 IF (VIM.GE.O.) RHO (|>-(P(1I /PORGAMV > **GAMX *5470 

IF (VC 1 > .LT.O. .OR. I . EO.N) RHO( I I- (PC l >/PORGAMLI*«GAMX *3480 

46 UC I 1 -SORT ( TERM l -FAC*P( l>/RMO( I >-V( 11**2) *3490 

47 CONTINUE *3500 

EPSIu- 1 .E-08 *3510 

GO To 36 *5320 

48 DO- 49 I -1 , N *3530 

FIB( I >- TERM 1 -FAC *P{ I >/RMO( 1 l-U( I )**2-UP< I >**2 *334 0 

49 U I SEN ( I I -UC I I *3330 

DO 52 J-l.N A 5360 

1 - 1 *3370 

30 u f U ) ■ < l .4EPS IU)*UI SEN t J > *5380 

CALL LGRANGE (M. 1 .NP.NLINES.NL INEPl .NOeBUG.XI ( I ) .X I .U.X,V,DYOX> *3590 

UP(I)-DYDX *3600 

F! ( | >*TERM1 -FAC*P( I )/RMO( i )-UCI )**2-UP( I 1**2 *5610 


C0N2-C0SCETAC I >) 

CALL DIRCOS (II 

UC< I ) ■ A 1 3* V ( I >4A23«V( I I ♦ A33*UC I > 

VC (I )-Bll»VC 1 ) +B I 2* V < I >♦813*0(1 > 

VC (I ) *B2l *V ( I l*822*V(l > ♦B23*U( I I 
X8AR ( | )-A31/C A33**B) 

YBAR ( 1 | » A32/ ( A33*AB > 

BUSO-UC I )**24VC I >**2*V( I >**2 
VX ( 1 > “A | 1 *v ( I )4A2!*V( I ) 4*3 1 *U ( I > 

VY( I ) ■ A I 2*V ( I >♦ A22*V( I >4A32*U ( I > 

OUANZ-XBARC I > **24 YBAR ( I >**2 

IF (M.NE.3.0R. (M.EQ.3.AND.OUANZ.GT.1 .E-07> > GO TO 61 
VCCC I >-VXC I 1 
VCCC | )*VVC I > 

GO TO 62 

61 RBAR-SOPT(OUANZ) 

VCCC | I » ( X8AR C I >*VX< I ) 4 YBAR C | > *VV ( I > >/RBAR 
•CCC I > ■ C -YBAR I | )*VXC | I4XBARC I I *VY C I > >/R8AR 

62 TMETnORC | I-ACOSCABSCVYC I > > /S<»T I BUSO I > *RAO 
PS I NOR ( I ) ■ AT AN2 ( VX ( I ).UCC I > >*«AD 

PORT I ( I >-P{ | >/PT|NF 

PTOPTl C I ) ■ (POROGAN c I )/**>•• 1-1 ./(GAMMA-1 . | ) 

PTC | ) -PTOPTl Cl >*PTINF 

POASTSOC I | -PC I )/AASTS0 

POP 1 NF ( 1 )-PC I >*GAMMA*STMACM**2 

IF CI.NE.l .AND.l.NE.N) GO TO 65 

IF ( I.EO.l > GO TO 63 

IF C |.EO.N.AND.M.*C.2> GO TO 63 

IF I I.E0.N.AN0.M.E0.2> GO TO 64 

63 UC*»A33*UV 
VCW-R13*UV 
VCV-M23«UV 
VXV-A31*UW 
VYV-A32*UW 
VZW-A33*W 

PT0PTIV-CP0RGAMV/AA>#*C-I./CGAMMA-1 . ) 1 
GO TO 63 

64 UCL-A33*UL 
VCL«nl3*UL 
VCL-B23*OL 
VXL*A3l*UL 
VYL-A32*UL 
VZL- A33*UL 

PTOPTIL- (PORGAML/AA > •* C - I » / C GAMMA — I • > > 


A 6060 
A6070 
A 6060 
A 6090 
A6100 
*61 10 
A6120 
*6130 
A6140 
A6130 
A6I60 
A6I70 
A61B0 
AA190 
A 6200 
A62I0 
A 6220 
A6230 
A6240 
A 6250 
*6260 
A 6270 
A62B0 
A 6290 
A6300 
A 631 0 
A6320 
A 6330 
A6340 
*6330 
A 6360 
*6370 
A6380 
A 6390 
A6400 
A6410 
A6420 
A 64 30 
A6440 
A6450 
A 6460 
A6470 
A6480 
A6490 


OF 1 DUC 1 .J>»CFI C 1 I-F10C I > ) / C EPS I U*U I SEN ( J > > 

IF (I.EO.NI GO TO 51 
1-141 
GO TO 50 
SI UCJ>«U1SENI J> 

32 CONTINUE 

DO 53 I-l.N 

53 611. I > - — F I B C I | 

NMl *N~t 

CALL SINEQ (DFIDU.N. 3 . 1 .DETERM. (PIVOT. NMAX.ISCALEI 

OO 54 T - 1 .N 

54 UC M-U1SENC I >4BC |.l > 

DO 53 1 -I .N 

IF C ABS CB C I . I I > »GT .EPS I SEN I GO TO 36 

55 CONTINUE 
GO TO 58 

36 DO 57 l*l.N 

CALL LGRANGE C M . I .NP , NLINES.NL I N£P| .NOEBUG. X! I I > . X 1 »U.X . Y .OYDX ) 

57 UP ( I J-DYOX 
GO TO 48 

58 DO 59 I *! .N 
VC I >-UPC I I 

POROGAM ( I) -PC I >/RH0 ( I )**GAMMA 
se*R < 1 1 -alogcgamma*stmacm** 2 *porogan< i > > 

OENOM = SORT<GAMMA*P| 1 j /RHO I 1 l I 
CROS 5 M C ( 1 -AQSCVC I ) 1/OENOM4AAST 
ASO-GAMMA*FUNC I .31/RHOCI > 

BuSO-UC I >**24VC 1 l**24V< I 1**2 
AM Cl ) -SORT ( AAST ** 2 * 6 uSO/*SO I 
0EN0M-1 .42./ ( (GAMMA-1. >*STMACM**2> 

BERNOUL ( 1 >»1 «-C2.*GAMMA*FUNC | .3>/(RH0( I »* (GAMMA- 1 . > >4BUSO***ST**2 > 
1 /DENO« 

AS0-G*MMA*FUN( | .3 |/RhO( I ) 

At SQsASQ/AASTSQ 
WOA-V * I l**2/AlSO 

DVD 2 < 1 I --ETAS < I > • € C I . -VOA >*VP C I >4U« I >*<2.-vOA> I 
DPDZC I | •— ETAS( 1 > *RmO( I l*HK*VC I }**2*AASTS0 

59 CONTINUE 
C 

C COMPUTE SPECIAL QUANTITIES FOR PRINTOUT 

C 

60 DO 65 I-l.N 

IF ( ZET A.EO.O.O > ETA ( I )-0.0 
CONl-SINCETACI > I 


A 5620 65 CONTINUE 

A 5630 PRINT l 18 , ZET A 

A 5640 LPRlNT -1 

*5650 C 

*5660 C MAIN PRINT OUT 

*5670 C 

*5680 CALL PRINT CL !M 1 T .ML INEPI .LPH 1 NT. ZET* .DZET* .f#>,NPLOT.NZETA 1 

*5690 66 IF (nPRINT,NE. 2 > GO TO 70 

*5700 IF (M.E 0 . 3 . 0 R.M.E 0 . 4 . 0 R.M.EQ.S I GO TO 67 

*5710 GO TO 70 

*5720 67 NMl-N-l 

*3730 DO 68 I-I.NM 1 

*3740 IF <cROSSM( I > iLT.l • . AND. CROSSM ( I 4 J >.GT. I • > GO TO 69 

AS 7 S 0 IF (CROSSM ( I > .GT • 1 . .AND. CROSSM ( I 4 | ) «LT . I . ) GO TO 69 

A 3760 68 CONTINUE 

A 3770 69 DENOM-CROSSMC 141 >-CR 0 SSM( I ) 

A 3780 XYZ-Cl .—CROSSM ( I I >• ( XBAR C I 41 I-XBARl I > >/DENQM 

*3790 XBSONIC-XBAH ( I >+XYZ 

*5800 XYZ-Cl .-CROSSM C I ) >* I vBAR ( 141 1 -YBARCI > >/DEN 0 M 

*5810 YBSONIC-YBARC I I 4 XYZ 

*3820 PRINT 143 . XBSONIC.YgSONlC 

*3830 XBSNC C NZET 1 > -XBSONI C 

*5840 VBSNC < NZET I > ■ YBSONI C 

*5830 70 IF (FUNC I . I > .LE.O. > GO TO 74 

A 5860 CALL RUNKUT 2 (DZETA,nP> 

A 5870 IF (NEGP.EO.O.AND.NPRINT.EO . 1 I GO TO 73 

A 3880 IF (NEGP.EO.O.AND.NPRINT.E 0 . 2 .ANO.L 1 .EO.NCASES) GO TO 104 

*3890 IF (NEGP.EO.O.AND.NPRINT.EO. 2 . AND. LI .NE.NCASESl STOP 7776 

*5900 IF (NDEBUG.EO.O > PRINT 117 , 1 NTCNT .NEXTRAP 

* 39)0 IF CFUN< 1 . I > .EO.O.O. AND. NEXTRAP. EO.l I GO TO 42 

*5920 IF ( CFUN( 1 . 1 ) 4 DFUN( 1 , 1 ]> .GE.O. I GO TO 72 

A 5930 OZETA-— FUN< 1 . 1 > 

*5940 OO 7 | I -I »N 

A 3950 71 DFUNl I . 1 >-DZETA 

A 3960 72 CONTINUE 

AS 970 IF (NEGP.NE.O) GO TO 74 

AS 980 73 NPR I NT • 2 

A 5990 NEGP-I 

*6000 GO To IB 

*6010 74 DO 75 I— 1 .LIMIT 

*6020 CPI 1 > - 2 • • ( FUN ( I . 3 )— I ,/(GAMMA*STMACH**2> > 

*6030 CPBODYI I V-CPC 1 > 

*6040 75 CONTINUE 

*6030 IF <nPRINT.NE. 2 > GO TO 77 


*6500 

*6310 

*6320 

*6330 

*6540 

*6530 

*6560 

*6570 

*6380 

*6390 

*6600 

*6610 

*6620 

*6630 

*6640 

*6650 

*6660 

*6670 

*6680 

*6690 

*6700 

*6710 

*6720 

*6730 

*6740 

*6750 

*6760 

*6770 

*6780 

*6790 

*6800 

*6810 

*6820 

*6830 

*6840 

*6830 

*6860 

*6870 

*6880 

*6890 

*6900 

*6910 

*6920 

*6930 
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APPENDIX B 


C 

c 


IF <NPUOT.EO.OJ GO to 76 
PUNCH 107. NZETA 

PUNCH 123. (XQAR(I),J«1, LIMIT) 

PUNCH 123. (Y0ARI I). (-1. LIMIT) 

IF (M.EQ.2) PUNCH 123. IPSIOII I. 1*1 .LIMIT) 

IF IM.NE.2) PUNCH 123* (XOBARC I) . 1-1 .LIMIT) 

PUNCH 123. <CPB0DY< I >• I»1 .LIMIT J 
PUNCH 123. <UI I ). |>1 .LIMIT! 

PUNCH 123. (HU )• 1-1 .LIMIT) 

PUNCH 123. IRHOll >.!.) .LIMIT) 

punch 123. icrossmc i j. i«i .limit) 

IF (M.E0.2) GO TO 76 

punch )23. < xbsnc < l ) , I ■ l . NZETl ) 

PUNCH 123. (VeSNCII ),!*!. NZETl ) 

76 PR I NT 138 
PRINT 137 

PRINT 136. UW.RHOW.Sw.POPGAMV.UCW.VCW.VCW.VXW. VYW.VZW.PTOPTIW 
IF (M.NE.2 ) GO TO 77 
PRINT 139 
PRINT 137 

PRINT 136. UL .RHOL « Su .PORGAML .UCL.VCL.WCL.VXL . VYL • VZL >PT OPT 1 L 

77 IF <nP 1 V.EO.O ) PRINT 134. (CP 1 1 > . I ■! .L I M 1 T ) 

IF (NPIV.EO.O) PRINT 120. (FUN< I .4) . 1*1 .LIMIT) 

1NTSTEP - TOTAL NUMBER OF GOOD INTEGRATION STEPS 

intstep*intstep+intcnt 

IF (NPRINT.NE.2 J GO TO 78 

IF (M.EO.O.OR.Nl.EO. 1 .0R.M.EQ.6) GO TO 104 
FORCE ANO MOMENT COEFFICIENTS 

IF (MOO (LIMIT. 2) .EO.O.OR.MOO (NA.2 > .EO.0.0R.M0DCNB.2 ) «E0. 0 > GO TO I 
104 

CALL FMCOEFS (LIMIT. NA.NB. NSPACE .XI . A »M. AA . AAA.P . A2 . A 1 .AA.GY.YO.SI 
1NALP.C0SALP) 

TESTS FOR CONVERGENCF 

78 IF INCOUNT. NE.O ) GO TO 85 
VTEST* VTESTHD 

DO 79 1*1 »N 

IF d.EO.l) VMAX* ABS (FUN< I . 4 ) ) 

IF (ABSIFUNI I .4) WGT.VMAX) VMAX»A05 < FUN( 1.4!) 


A6940 
*6950 
A6960 
*6970 
*6960 
A6990 
*7000 
*7010 
*7020 
*7030 
*7040 
A 7050 
*7060 
A7070 
*7080 
*7090 
A7I00 
*71 |0 
*7120 
*7130 
A7140 
A7150 
A 71 60 
« t'.'.O 
A7IB0 
A7190 
*7200 
A 7210 
A 7220 
A7230 
A 724 0 
A 7250 
A 7260 
A 72 70 
A 7280 
A7290 
A730C 
A7310 
A 7320 
A7330 
A 7340 
A 7350 
A 7360 
A7370 


KCOUNT-KCOUNT+l A7820 

NP I V.NP I V* I A 7830 

IF fNCYCLE.GT.50) STOP 0 777 A7B40 

IF INCOUNT. GT.l ) GO TO 89 A7830 

86 00 87 I • I « N A 7860 

VO II J-FUNI I .4 > A 7870 

IF (1.E0.1 ) VMAX-ABS <VO< 1 ) ) A7B80 

IF UBS IVOI I > ) .GT.VHAX ) VM AX - ABS ( VO I I ) ) A7890 

87 ETAS0< 1 )=ET*SI I ) - *7900 

IF (nPI V.EO. 1 .ANO.N.^Q. 1 ) PRINT 124. KCOUNT.VMAX.EPSlG.SPACER.EPS! A7910 

1VAR *7920 

IF (nPI V.EO. I .AND.N.EO. 1 ) GO TO 88 A7930 

IF < *#> ! V.EO. 2 ) GO TO 88 A7940 

IF INPR INT.EO. 1 • ANO.NPI V.EQ. 1 ) PRINT 124. KCOUNT . VMAX .EPS 1 G. SPACER A7950 
1 . EPS IVAR A 7960 

IF (FORINT. EO.l .ANO. NSKIP.EO. 1 ) PRINT 124. KCOUNT.VMAX.EPSIG. SPACE A7970 
1R.EPS I VAR A 7930 

IF INSKIP.EO.il GO TO 93 A7990 

IF (EPSIG.EO.EPSIGMX ) GO TO 80 A8000 

NCOUNT * 0 A8010 

GO TO 18 A8O20 

A8O30 

BEGIN ETASd) VARIATION AB040 

A8050 

88 ETAS(J+1 )«ETAS< J+ 1 )* <1 .+EPSI VAR I A8060 

GO TO 16 A8070 

89 J>J.) A8080 

IF (n.NE.I I GO TO 90 AS090 

A8I 00 

COMPUTE OETA FOR T A Y(_OR— MACCOLL AB1I0 

A8120 

OETA < 1 ) ■♦EPS I VAR*ET*sO I 1 )/ I 1 .-FUN <1.4 )/vOd ) ! A8I 30 

GO TO 102 A8140 

90 IF IJ.LT.N) ETASI U. I j«ETAS < J+l )* d .♦EPSI VAR) AB150 

ETAS < J ) ■ ETA SO < J ) A8160 

AS) 70 

COMPUTE ELEMENTS OF JACOBIAN MATRIX A8180 

A8I90 

DO 9) 1 -I >N A8200 

0<l • J) ■ < FUN < I .4 )-v0 < J ) )/<EPS IVAR*ETASO< J) ) A8210 

OHOLOt I • JI-OC I . J) A 8220 

91 CONTINUE A8230 

IF <j.EO.N> GO TO 92 A 8240 

GO TO IB A8250 


79 CONTINUE A7380 

IF (nCyCLE.EQ.1 .AND. vMAX.GT. VTEST ) GO TO 85 A7390 

IF (NCYCLE. GT.l .AND. VMAX.GT. VTEST1 ) GO TO 85 A7400 

IF IVMAX.LE. VTEST) GO TO 80 A74J0 

IF (N.EQ.1) GO TO 85 A7420 

IF INCYCLE. GT.l . AND. VMAX.LT . VTEST | ) NSKIP*) A7430 

IF INCYCLE. GT.l .AND. VMAX.LT. VTEST! ) GO TO 86 A7440 

80 NPR I NT » NPR I NT + 1 A7450 

IF INPRINT. EO. 3) GO TO 104 A7460 

KCOUNT* KCOUNT +1 A7470 

IF (M.EO.O ) GO TO 8! A740O 

GO TO 82 A7490 

01 PRINT 119 A7500 

PRINT 108. STMACH. GAMMA. T.THETAO.ALPHAO A7510 

PRINT 113. EPSIGOM A 7520 

PRINT 109, N.M.NREAD. NSPACE. NP A7530 

PRINT 124. KCOUNT.VMAX.EPSIG. SPACER. EPSIVAR A7540 

GO TO 86 A 7550 

C A 7560 

C PRINT OUT OF INPUT AND SMOCK AND GEOMETRIC QUANTITIES A7570 

C A 7580 

82 CONTINUE A 7590 

PRINT 110 *7600 

PRINT 109. N. M.NREAD. NSPACE .NP A7610 

PRINT 116. NA, A NA.NB ,BNB A7620 

PRINT 108. STMACH. GAMMA. T.THETAD.ALPMAD A7630 

IF IM.E0.2) PRINT 142. RANGLE A7640 

PRINT 1 54 . NCYCLE. NSTEP. VTEST. VMAX.AAST.PTINF A7650 

PRINT 124. KCOUNT.VMAX.EPSIG. SPACER. EPSIVAR A7660 

IF (M.NE.3.AND.M.NE.4 . ANO.M.NE.5 > GO TO 84 A7670 

PRINT 12B. DELTAND.BeTSD.DELTASD A7680 

PRINT 129. BETDD.DELTADD A7690 

PRINT 132. BETADIN+l j.SIGMAD.VNS.AMN A77O0 

DO 83 NJ»1 • 1 1 A77)0 

83 PRINT 135. NJ . XMACH <NJ ) . VMACMINJ ) . XMACHB < N J ) . YMACHB <NJ ) A7720 

84 PRINT 112 A7730 

LPRlNT-2 A 7740 

CALL PRINT IL1MIT.NU INE°1 .LPRINT .ZETA .DZETA.NP.NPLOT.NZETA > A7750 

GO TO 86 A 7760 

C A 7770 

C VARIATION OF SHOCK DISTANCE FOR NEW TON— RAPHSON COMPUTATION OF SHOC A7780 

C NCOUNT - COUNTER OF PIVOTAL AND VARIATION INTEGRATIONS NCOUNT » 1 A7790 

C A 7800 

B5 NCOUNT-NCOUNTd A701O 


SECTION TO PREPARE AND SOLVE D<!.J> MATRIX 

92 CONTINUE 

93 00 9* I ■ I .N 

94 B< I .1 )»-V0( I ) 

IF (NSKIP.EO.O) GO TO 97 
IF <NDEBUG.EO.O ) PRINT 149 
00 96 t ■! .N 
OO 95 J*1 .N 

95 D< I . J)«OMOLD< I. J) 

IF <NOEBUG.EO.O ) PRINT 148. I D II « J ) - J* I . N ) . B < I . 1 1 

96 CONTINUE 

97 OO 1 00 I ■ 1 . N 
S0SUM«0. 

00 98 J"1 .N 

SOSUM* SQSUM+D < I . J )**2 

98 CONTINUE 
TEMP.SORT ISOSUM > 

00 99 J-l .N 

99 D< I . J)»0< I . J)XTEMP 
0< I . I >«B< I . 1 >XTEMP 

100 CONTINUE 

CALL SIMEO ID.N.B.l .DETERM. IP1VOT.NMAX. ISCALE) 

PRINT 152. ISCALE .DETERM 

IF < (M.EQ.l .OR.M.EO.2.0R.M.EQ.6 ) . AND. DETERM.LE. 0 . 0 ) 
DO 101 l*l.N 

101 DETA< I ) -B< 1 . I ) 

102 PRINT 121. (DETAl | ) . i« I ,N) 

J-0 

ncycle»ncycle^i 
NCOUNT «0 
NPI V-0 

DO 103 1*1. N 

103 ETAS<I)*ET A SO < I ) + DET All) 

GO TO ) 8 

104 CONTINUE 
PRINT 110 
GO TO l 

105 CALL DAYTIM < I DATE > 

PRINT 144. I DATE 
STOP 0101 


PRINT 


153 


A 8260 
A8270 
A 82 80 
A8290 
A8300 
A8310 
A8320 
A8330 
A834 0 
A8350 
A8360 
A8370 
A8380 
A8390 
A8400 
A 94 1 0 
A8420 
A 84 30 
A 8440 
A8450 
A8460 
A8470 
A 84 00 
A8490 
A8500 
A 85 1 0 
AB5Z0 
A 8530 
A 8540 
A8550 
A 8560 
A8570 
A 8580 
A 8590 
A8600 
A86I0 
A 8620 
A8630 
A 8640 
A 8650 
A 8660 
A 0670 
A 8680 
A8690 
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APPENDIX B 


.2X.7MTHETAD* 


1 06 FORMtT (3E14.6) 

107 FORMAT < 1 0 IS ) 

108 FORMAT ( 8 H STNACH-216.8.2X.6HGAHMA-EI6.B.2X.2HT-E16.I 
iei6.8»2x*7HAi_PHAo«ef.ia.a2) 

109 FORMAT < 3M N- I2.2X.2HM-1 I « 2x . 6HNREA0- I 1 .2X . 7HNSP ACE- I I .2X.3HNP- 12 » 
1 10 FORMAT UHl//t 

111 FORMAT <2A I 0/ 1 

112 FORMAT (/) 

113 FORMAT (9H EPSIGOM^ca.Sl 

114 FORMAT ( 1 XIA 6 . !S/'(«El 6 . 8 n 

115 FORMAT (2I3.2E16.6) 

116 FORMAT <4M NA « 1 2 . 2* . « HANA «E 1 6 .B , 2x . 3HN8 » I 2 .2X . 4H8N8-E 1 6 • 6/ 1 

117 FORMAT < 8 H JNTCNT»lg, 2 X.eMNEXTPAP»ll » 

118 FORMAT (/48X.SHZET4-£16.8/ ) 

119 FORMAT <//Z9H ZERO- INCIDENCE CIRCULAR CONE//! 

120 FORMAT <2H V/( 1X8E16.S > ) 

1 2t FORMAT <5M DETA/I 1X8 e1*»BI 1 

122 FORMAT <3H ETAS/< 8 $| 6 . 8 ) 1 

123 FORMAT iseio.ei 

124 FORMAT ( 8 M KCOUNT- 1 5 , 2 X . 3MVM Ax-E 1 6 . 8 . 2 X . 6 M£PS 1 G«E 1 6 . 8 . 2 x* 7HSP ACER* 
1E16.8.2X.8MEPSIVAR4 E 1 6.B» 

123 FORMAT < 6 H AAST-E1 6.g,2X.6HPTINF*E16.8/» 

126 FORMAT <3H T«E16.e,2x.7HTHETAD*E16.8.2X.7HAt_PHA0*E16.8.2x.2HM*!2> 

127 FORMAT <7M V TEST "El 6 .8 « 2X . 7MVTEST 1-E16.B) 

128 FORMAT I12M OELTAlN+l 1-E16.8.2X. 13M BET A CSONI C 1 -E 1 6.8. 2X. I 3HDELTA 1 
1 50NtC)-C16.8> 

129 FORMAT (28X.lOM8ETA(oeT»-E16.e.3X,llHOELTACOETl-E16.8) 
t30 format I40M FLOW DETACHED FROM LEAOINO EDGE OF WING) 

131 FORMAT < 6 H ETASP/« 8 El 6 . 8 n 

132 FORMAT 412H 0CTAD (N+i 1 aE I6»6 .2X • 7HS IGMAD-E I 6-S.2X. AHVNS-E 1 6.8 *2X. A 


1HANN-E16.8) 

133 FORMAT (13H CP ( I 1 AT SHOCK/ ( 8E1 6*8 > ) 

134 FORMAT (I6H CP«I» AT ZETA-0/(8E16.8 I 1 

133 FORMAT <4M NJ- 1 2. 2* . 6HXM ACM- E 1 6 . 8 . 2 X . 6MYM ACH-E 1 6. 8 . 2X . 7HXMACHB-EI 6 
1 ,8.2X.7HYMACHB-E16,Q) 

136 FORMAT (11EI2.A) 

137 FORMAT ( 1 33M U RHO S POROGAM U 

1C VC VC VX VY VZ 

2 PT/PTINF /) 

138 FORMAT I/72H VINDWA 

1RO LINE ZETA LIMIT/’) 

139 FORMAT C/71 M LEEWAR 

ID LINE ZETA LIMIT/1 

140 FORMAT (3I3.2E16.81 


A8700 
A 871 0 
A8720 
A8730 
A 8740 
A8730 
A8760 
A8770 
A 0780 
A8790 
A8800 
A 881 0 
A 8820 
A 88 20 
A 8840 
A8850 
A 8860 
A 8870 
A 8880 
A 8890 
A8900 
A 091 0 
A 8920 
A 8930 
A 894 0 
A 8950 
A8960 
A 8970 
A8980 
A8990 
A9000 
A9010 
A9020 
A9030 
A9040 
A9050 
A9060 
A9070 
A9080 
A9090 
A91O0 
A9II0 
A9120 
A9I30 


COMMON /BLOCK2/ NA.NB* ANA.6NB.CNC.KJUNCT 
N0E8UG - 1 
INTIO-AO 
XTBSBAR-1 . 

IF (M.NE.A) GO TO 1 
AC-<t.-T**2)/<2.*T) 

ACC-AC*TANCTHETAQ) 

RC-TAN ( THE TAR >» ( 1 . *T**2 > / ( 2 • *T 1 
1 NLINEPl “M-INES+l 
L1MIT-N 

IF (M.E0.3.0R.M.E0.4.0R.M.E0.S) L IM I T-NL I N£PI 
NF-2 

AB-TAN(THETAR) 

IF (M.EQ.5) YWIG»RS4COS(RHl *R l+TAN (PM 1 VP )* (BSBAR-AB 1 
XP- ( 1 . - T 1 • AB 

C 

C BOOT SELECTION 

C 

IF CM.EO.O) GO TO 2 

IF (M.EO. I .0R.M.E0.2.0R.M.E0.4.0R.M.EQ.3 I GO TO B 
IF (M.EQ.3 > GO TO 3 

IF (M.E0.6) GO TO 43 

C 

C TAYLOP-NACCOLL 


2 1 -I 

XI (1 )-0.0 
XO( 1 1-0.0 
YOU 1 — AB 
GXI I 1-2.4X01 1 1 
GY I I )-2.4V0( I ) 

GXXI I 1-2. 

GVY I 11-2. 

GXY < I 1-0.0 

IF (NDEBUG.EQ.01 PRINT 73. I . X I ( I I . XO < I > . YO < II 

IF (N0EBUG.E0.01 PRINT 74. I .GX I I 1 . GY ( I 1 . GXX ( I 1 . GYY ( 1 1 ,GXY< 1 1 
GO To 64 
C 

C FLAT PLATE - M-3 

C 

3 XI CN+1 1-TMETAR 
DO 4 I-I.NLINEP1 
YOUI-O.O 

GX( I >-0.0 


B 280 
8 290 
8 300 
8 301 
B 31 0 
B 320 
B 330 
B 340 
B 350 
B 360 
B 370 
B 380 
B 390 
B 400 
B 410 
B 420 
B 430 
B 44 0 

a 430 

B 460 
B 470 
B 480 
B 490 
B 300 
B 510 
B 320 
B 330 
B 340 
B 330. 
B 360 
B 570 
B 5B0 
B 590 
B 600 
B 610 
B 620 
B 630 
B 640 
B 650 
B 660 
B 670 
B 680 
B 690 
B 700 


14| FORMAT ( 4H NA- I 2 . 2* . 3 MNB- I 2 . 2X . 7MK JUNCT- I 2 , 2X . 4HAN A-E 1 6 . 8 . 2X . 4MCNC A91A0 
1-C16.8) A9150 

142 FORMAT (/BM RANGLE-El 6.8/ I A9160 

143 FORMAT (/9H XBSONK- r i6.e.2X.8HY0SONIC»E16.8/l A9170 

144 FORMAT ( 1 H 1 .40M DAVIS - A2180B1 FINISHEO COMPUTING AT .2A101 A91B0 

145 FORMAT C//44H OAV I 3-QLD-A2 1808 l -APPLIED MECHAN 1 CS-8- 1 3-68 ) A9190 

146 FORMAT (27M BERN IE KHJNKER- JERRY SOUTH) A9200 

147 FORMAT (36H CONICAL, FLOV BY THE METHOD OF LINES//! A9210 

148 FORMAT (1X8E16.8) A9220 

149 FORMAT (7M DC1.J!) A9230 

130 FORMAT (/BM NCYCLE* , J2 ,6H AT .2AI0/I A9240 

131 FORMAT (7H PHI WO-EI 6.8 .2X . 3M8X-E 16.8 ) A9250 

132 FORMAT (6H 1SCALE-I3.2X.7H0ETERM-E16.8) A9260 

133 FORMAT I/27H CHECK FOR SHOCK DETACHMENT/) A9270 

134 FORMAT <BH NCYCLE ■ 1 2 ,2X . 6HNSTEP- I 2 . 2 X . 6HVTEST -E16.8.2X. 5HVMAX-E 1 6. A92B0 

18.2X.3MAAST-E16.8.2x,6HPT|NF-E16.a/) A9290 

ENO A9300- 

SUeROUTINE BG B 10 

C i :B S 20 . 

C BODY GEOMETRY B 30 

C B 40 

COMMON FO1.0FI3) .FC(3).0FC(31.AB1 (3). AB2 (3 > . AB3 ( 3 1 . AB4 ( 3 | B 50 


COMMON FUN(20.6).0Pun(20< 6 ). FUNC < 20 .6 > .OFUNC < 20 .6 I .81 (20.61 .B2(20« B 60 
16) «B3 ( 20*6 > .84 (20 <6 > . SBAR ( 20 1 .0S8DZ ( 20 1 . SBARP < 20 I . OSB 1 (20) .DSB2 (20 B 70 
2 > • DSb 3 ( 20 1 . DSB4 ( 2 O i , * I ( 20 ) .XO ( 20 1 . YO ( 20 1 . A 1 (20 1 . A2 ( 20 1 . A3 < 20 1 . A4 ( 2 B 80 
30 1 .A3 <201 . A6(20 1. A7(p0 1 . A8 ( 20 1 . AK0( 20 1 .GX (20 1 .GY (20) .GXX ( 20 1 • GYY (2 8 90 
40 1 .GXY(20 ) .ETA(20 1 »ETAS(20 1 .ETASP(20> «BETAD(20 > .RH0<20 1 «R(Z0 >.P (30 B 100 
5).U(201 .V(20> .V (20 I .PP(20) .UP(20 > .VP(20) • VP(20 1 .XS<20 ) . YS (201 .DUDZ B I 10 
6(20) ,DPDZ(20l .0VDZ(201 .OVOZ ( 20 1 . AM ( 20 1 . S ( 20 1 .ZETA1 (20 ) . ZETA2 ( 2C > . Z B 120 
7ETA3 (20 1 . ZET A 4 (20 1 « Dul (20 ) . DU2 < 20 1 . OU3 <20 > .DU4 <20 > . DW1 (20).0V2<20) B 130 
B.0V3 (20 1.0V4 (20 1 .OV) ( 20 ) .0V2 (20 ) .DV3 <20 1 .0V4 (20 1 . G ( 20 1 .PS I O (20 1 .OR B 140 


91 (20 >.DP2 (20 ) .0P3 <20 ) ,OP4 (20 1 «0£ONS(20 ) .CROSSM (20 ) .RHOI SEN(20 ) B 150 

COMMON UISEN ( 20 ) . PQRoGAM (201 «Q < 20 1 . OP ( 20 1 «pS J S0< 20 1 .BERNOUL (20 > »XS B 160 
IBAR(20 > • YSBAR(20> .XO0AR(2O > • Y0BAR(20 1 «XBAR (20 ) . YBAR(20 1 B 170 

COMMON AAST.BI 1 .B12.B1 3.821 .B22.B23iNSPACE.P 1 <M.N. LI .T.THETAR.GAMM B ISO 
1 A. OX [.CONI .C0N2.STMACH.AB. A 1 I . A I 2 , A I 3 . A2 1 .A22.A23.A3l .A32.A33.ALPH B 190 
ZAP . N 1 • NDEBUG . H «HK , $ | qmA . RAD . NF . NL 1 NES » EPS I G » NPR I NT « SPACER . ULEE .UXf 1 B 200 
3ND.RHOLEE. RHOVIND.NEXTRAP.EPS I GOM.EPSI NT. X INI .S 1GNP1 B 210 

COMMON XP.XIP.PH1 MR.qSBAR.BS.RS.XIBSBAR B 220 

COMMON /ERROR/ ER(12 ).ERR( 12 ).BLK( 12) B 230 

COMMON VCC ( 20 > < VCC ( 20 > • SBARHLD ( 20 1 . X0HLO (20 1 • Y0HLD ( 20 1 8 240 

COMMON CP (20> .XMACNB (20) • YMACHB (20 ) >UC(20 1 .VC<20 ) .WC (20 ) • VX(20 1 .VY B 250 
1 (20) ,THETNOR(20).PS|nOR( 20> «P0PT1 (20 l.PTOPTI (20).PT(20).P0ASTSQ(20 B 260 
2> .POP1NF (20 > .XMACH(2o > * YMACH (20 ) .CPSHOCK (20 1 .CP60DY(20 1 B 270 


GY< I )--l .0 B 710 

GXX ( 1 1 - 0 » 0 B 720 

GYY ( J >-0.0 B 730 

4 CONTINUE 8 740 

XINI-Xt (N41 1 B 750 

IF (NOEBUG.EO.O) PRINT 79. BLK ( I 1 .X I <N+ I ) • ( YO ( I 1 * GX <t!.GY(t) .GXX ( I B 760 

I l.GYvCI I. 1-1 .NLINEP1 I B 770 

GO TO I A B 780 

C B 790 

C CIRCULAR ARC- M-4 B BOO 

C B 610 

3 NtNT-3 B B20 

NF-2 B 830 

TANTMET-TANITWETAR) B 840 

OO 6 INTCNT-1 . 100000 B 050 

CALL OERIV 1ACC.RC.THETAR.NINT.NCHANGE.NOEBUG.T.AB.F.OF.NF.XOO.XIN B 660 
I1.XIN.XP.PS. RHIHR.XIpSBAR. VWIG.BSBAR) B 870 

CALL RU1VCUT ( ACC.RC .TMETAR.NINT .NCHANGE .NSTEP.NDE8UG.T. AB.F.OF.FC. 8 880 
10FC.DS. AB1 . AB2. AB3. A0A .NF.EPSIGOM.NOUAO .X00.XIN1 , X IN.XO.RS.PHIVR.X B 890 
2IBS8AR. YVIG.BSBAR) ' - - B 90C 

IF (ABS(F(M-TANTMET).LE.l .E-07) GO TO 7 B 910 

IF <F(1 14DFI 1 I.LT.TAnTHET.AND.ABS(TANTHET-F ( 1 l-DF ( I ) l.GT. I .E-07 1 G B 920 
IO TO 6 B 930 

D5-TANTHET-FU ) B 940 

DFU 1-OS B 930 

6 CONTINUE B 960 

7 XI (N4l )*F(2) B 970 

GO TO I 3 B 980 

C B 990 

C ELLIPTIC CONE- M-2 BIOOO 

C 01010 

8 NSTEP-2 B 1 020 

C CIRCULAR AND ELLIPTIC CONE - COMPUTATION OF XI INI) 81030 

NINTal B 1 040 

NCMAnGE -1 B 1 050 

NOUAD-1 B 1 060 

F ( 1 1-0.0 B I 070 

F (2 1 -0. 0 B 1 080 

DS-.01*AB B 1 090 

OFll ) -OS 81 100 

XOO-O.O B1II0 

IF ( M.EO. A 1 GO TO 3 8 1 I 20 

IF (M.EO. 3) N I NT — 7 Bit 30 

e ail 40 
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INTEGRATION WITH XO OB YO INDEPENDENT VAR I ABLE - NINT*l 81150 

INTEGRATION OVER XO - NCHANGE* 1. VARIABLE STEP - NSTEP*2 61160 

B1170 

CHECK I - AB /SORT (1 ,4T**2) B1I80 

CHECK2»-T#*2*AB/SORT{t«»T**2» B I 1 90 

CHECK3-0.0 B 1200 

IF / <N*E0.S) CHECK1 *BSBAR B12I0 

IF (OS. GT. CHECK! I 0S-.54CHECKI B12I1 

> DFci)-DS , BI212 

IF (M.EG.5) CHECKS* An 01220 

DO 12 INTCNT*! . IOOoOo B1230 

CALL DERtV (ACC. RC.THETAR,N|NT. NCHANGE. NDEBUG. T.AB.F. OF. NF.XOO.XIN 012*0 
l! .XIN.XP.RS.PMIWR.XI rSBAR.YWIG.BSBAR) B 1250 

IF (NCHANGE .EQ.2 .AND. ABS (F ( 1 ) -CHECK 3 > «LE . 1 »E“10> GO TO 13 B1260 

CALL RUUCUT (ACC. RC.THETAR.NINT. NCHANGE. NSTEP. NDEBUG. T.AB.F. OF, FC. B1270 
1DFCDS. ABl .AB2. AB3. ABA.NF.EPSIGOM.NOUAD.XOO.XINI , X IN . xP.RS.PM I VR . X B1280 
2IBS8AR. YW1G. BSBAR ) B1290 

IF (INTCNT. EO. I ) DSOAB*DS/AB B I 300 

IF (nDEBUG.EO.O! PRINT 76, INTCNT B1310 

IF (NCHANGE. EQ. 1 .AN0.ASSCCHECK1-F(U ) .LE. 1 .E-07) GO TO 10 B1320 

IF (NCHANGE. EO. J .AND. IF(l )+DF( 1 > ) .LE. CHECK! .AND. CHECK 1 - IF I I >*DF (1 ) BJ330 

1 I.GT.I .E-07J GO TO 1? B1340 

IF (NCHANGE. EQ. 1 .AND. (F{ 1 > +DF< 1 ) > .LE. CHECK I . AND. CHECK I - (F ( I ) + 0F (I ) B I 350 
1 ) .LE* I »E-07 > GO TO 9 BI360 

IF (NCHANGE.EO.l .AND. (F( 1 )>OF< 1 ) I.GT.CHECKI > GO TO 9 B1370 

IF I NCHANGE .EQ. 2 .AND. (F[ I )+OF( 1 ) > .LE .CHECK3. AND. ABS ( F ( 1 ).OF( I J-CHE BI380 
ICK3).GT.l .E-07) GO TO 12 B1390 

IF (NCHANGE. EO. 2. AND. (F( l )+OFIl ) I . LE . CMECK3 . AND . ABS < F ( I l + DFIl )-CH£ 61400 

ICK3I.LE.1 .E-07) GO TO 11 B1410 

IF < NCHANGE. EQ.2.AND. (F( 1 )+DF( 1 ) ).GT.CHECK3> GO TO II B1420 

9 DS*CHECKI -F ( 1 ) 61430 

OF ( | >*DS B I 440 

GO TO 12 81*50 

B 1 460 

INTEGRATION Over YO - NCMANGE*2. VARIABLE STEP - NSTEP«2 B 1 470 

B I 400 

10 NCHAnGE*2 0 1490 

IF (NINT.EQ.7) XIBSBAR«F(2) B1500 

IF (NlNT.EO.7l X0 BSBaR“F(1» BI5I0 

IF (N I NT .EO. I I F(!)*CHECK2 01520 

DS* .01 * AB 01530 

DF(1)*DS B 1540 

GO TO 12 B 1550 

11 DS“CH£CX3— F ( l ) 61560 


F ( 2 ) *XO ( 1 ) B201O 

F(3)»Y0(1) B2020 

IF (N.E0.5.ANO.DX1 .GT.X1BS0AR) OX I - . 5*X 1 BSBAR 02021 

DXIHi_D«DXl 02030 

OF (l). 0X1 B2040 

NCHANGE*! B2050 

IF (M.E0.5) GO TO 23 B2060 

DO 22 IZ*2.LJM!T B2070 

DO 19 1*2,100000 B20BO 

CALL DERIV ( ACC. RC.THETAR.NINT. NCHANGE. NDEBUG. T.AB.F. DF, NF.XOO.XIN B2090 
1 1 .X1N.XP.RS.PH1 WR.XIbSBAR.YV1G. BSBAR) 02100 

CALL RUNKUT ( ACC . RC . THET AR . N I NT . NCHANGE , NSTEP .NDEBUG . T . AB ,F , OF. FC-. BH 1 l 0 
1DFC.DX1 .ABl .AB2.AB3.AB4.NF.EPS1GOM.NOUAD.XOO.X1N1 .X 1N.XP .RS .PH! W« . B2120 

2XIBSRAR.YWIG. BSBAR) B2I30 

IF (NDEBUG.EO.O) PRINT 72.. I «F( I ) .F (2) .F (3 ) B2I40 

IF «ABS(F(1 )-Xt (IZ) I.LE.l.E-10) GO TO 20 B2150 

IF <(FC1 )4DF<1 M.LE.XUIZ). AND. XtUZ>-(F(l l+DF(l D.GT.l. E-07) GO T B2160 
10 19 02170 

OXlHLD*DXI B2I0O 

OX I*Xl l IZ) — F ( ! ) 02190 

OF ( I ) *DX I B2200 

19 CONTINUE 0221 O 

20 IF (NSPACE.EO. 1 > DXI-DX1HLD 62220 

IF (NSPACE.EO. 1 > DF ( I ) *DX I B2230 

IF (NSPACE.EO. I ) GO TO 21 B2240 

IF (F( 1 I.G6.XI (NA).ANO.FC l l.LT.XI (NB) ) DX 1 = A8B/FLOAT < INT 10 1 B2250 

IF (F( 1 > .GE.XI (NB ) .AND.F ( 1 > .LE.X 1 (N ) ) Ox I = AN/FLOAT ( I NT 1 0 ) B2260 

IF (NDEBUG.EO.O) PRINT 7B. 0X1 B2270 

DF(1)«DX! B2280 

21 XI € 1 Z ) *F ( 1 ) B2290 

X0<IZI*F(2t 62300 

YO(IZl*F(3) 62310 

IF <NOEBUG.EO.OI PRINT 73, l Z.Xt ( IZ l .XO < t 2 1 .YO t CZ I B2320 

22 CONTINUE 02330 

GO TO 34 B2340 

C 02350 

c CALCULATION OF BODY GEOMETRY FOR MODIFIED WEDGE - M=5 B2360 

C B2370 

23 00 31 1Z*2 .LIMIT 62300 

00 20 1*2.100000 ' 02390 

CALL DERIV (ACC.RC.THETAR. MINT. NCHANGE, NDEBUG. T.AB.F, OF, NF.XOO.XIN 024QO 

II .XlN,XP.RS.PHI VR.XtBSBAR. YYiG.BSBAR ) B2410 

CALL RUNKUT ( ACC »RC • THEJTAR . N t NT « NCHANGE .NSTEP « NDEBUG. T . AB «F »OF«FC • 62*20 

10FC.QXI • AB 1 . AB2. AB3.AB4.NF.EPS I COM. NOUAD.XOO.X INI , X I N.XP .RS .PHI WR • B2430 


12 CONTINUE B1S70 

13 IF (NtNT.EO.7) .XI <N4t t*F(2l BI5B0 

XIN!*F(2) B 1 590 

IF (NINT.eO.TJ PRINT S3. AB . BSBAR. RS .XfBSBAR . XOBSBAR 8(600 

PRINT 76* INTCNT. XIN1 B1610 

14 XI (NA)*ANA*XIN1 B 1 620 

XI (NB) *BNB*XINl B 1 630 

IF (M.E0.3.0R.M.E0.4.0R.M.Ea.5> GO TO 15 01640 

XI <N)*2.*X1N1 01650 

IF (M.EO.l ) XI <NI*CNC*XIN1 B 1 660 

XlN*Xl<N) B 1 670 

15 IF (NDEBUG.EO.O) PRINT 68, X I < I » .X! < NA ) , XIN1 .X I ( NB ) . X I (N ) BI6B0 

IF (NSPACE.EO. 1 1 GO TO 16 B1690 

AA*X! < NA > /FLOAT < NA— 1 ) 81700 

ABB* «XI (NB)-XI <NA) > /FLOAT { NB-NA ) B17l 0 

16 IF (M.EO. I .0R.M.E0.2 ) AN=<XI <N)-XI (NB) )/FLOAT(N-N0) B1720 

IF (M.EQ. 3.0R.M. EQ. 4 . OR.M«EQ«S ) AN* (XI (N-f 1 ) — XI ( NB ) ) /FLOAT ( N+ 1 — NB ) 01730 

IP (NDEBUG.EO.O) PRINT 77. AA.ABB.AN 91740 

DO )S 1*1 .N 0)750 

IF (NSPACE.EO. 1 I GO TO 17 BI760 

IF (I.GE.I.AND.I.LE.NA) XI ( 1 »*AA*FLOAT(|-l ) BI770 

IF < f.GT.NA.AND. I .LE.NB) XI <1I*XI (NA I ♦AB0#FLOAT < I -NA ) BI780 

17 IF (I.GE.NB.ANO.I.LE.N) XI ( I »*XI <NB >+AN*FlOAT( I -NB ) B 1 790 

18 CONTINUE 61 800 

IF (NDEBUG.EO.O) PRINT 67, (XI ( I ) . I * I *L I M I T ) B101O 

C 01820 

C CIRCULAR AND ELLIPTIC CONE - COMPUTATION OF X0( I I Q1830 

C INTEGRATION OVER X! - N INT*2 • VARI ABLE STEP SIZE - NSTEP *2 B I 840 

C 8 1 850 

IF (M.EO.3) GO TO 32 BIB60 

NF*3 8IB70 

NINT.2 BIB80 

IF (M.EO.4) N1NT-4 B 1 890 

IF (M.EO.S) N INT =8 B1900 

NQUAD-2 B19I0 

NSTEP*2 B I 920 

IF (NSPACE.EO.I > OX I * AN/FLO A T ( I NT 10 1 B 1 930 

IF (NSPACE.EO. 2 ) OX t * A A/FLOA T ( I NT I 0 I B1940 

IP (NDEBUG.EO.O ) PRINT 78. OXt BI950 

Xl(l)-0.0 B 1 9&0 

x0(l)*0.0 81970 

Y0(1)«-T*AB B I 980 

IF (M.EQ.5) YOU I-YWIG-RS B1990 

F<1)*X1(1) B2000 


2X1 BSB*R • YW 1 6, BSBAR j 02440 

IF (nOEBUG.EQ.O ) PRINT 72. I*F(1)«F(2)»F<3) B2450 

IF (A0S(F (I 1-XI ( IZ) ).LE. 1 .E-l 0) GO TO 29 B24&0 

IF <F( I )+0F( I I .LE.Xt (IZ) . AN0.4BS (XI ( IZ)-F( 1 I-DFO j I.GT.I .E-07) GO 82470 
I TO 24 02480 

IF (F( l ) + DF( 1 I.LE.XI ( IZ ) . AND.ABS (XI ( IZ)-F( 1 1-DFC l ) >.LT.) .E-07) GO 82490 
1 TO 27 82500 

IF (F( 1 )+DF< I ) .GT.X I ( I Z) ) GO TO 27 B25I0 

24 IF (NCHANGE.EO.2 ) GO TO 28 02580 

IF (NCHANGE.EO. 1 .AND. ABS ( X 1 BSBAR-F ( 1 ) ) .LE. 1 »E- 10) GOTO 25 B2530 

IF (NCHANGE.EO. 1 .AND.F ( 1 ) +DF C 1 ) • LT . X I BS8AR . AND . ABS (X I BSBAR-F ( 1 ) -OF BZS40 

I (1 ) I.GT.I .E-07) GO TO 28 82550 

IF (NCHANGE.EO. 1 .AND.F ( 1 >+DF ( 1 ) .LT .X 1 BSBAR. AND. A0S (X I BSBAR-F ( 1 >-DF 82560 
1 (I M.LT.I .E-07) GO TO 26 B2570 

IF (NCHANGE.EO. 1 .AND.F ( 1 ) +DF (1 ) . GT . X I BSB AR ) GO TO 26 B2S80 

25 NCHAnGE *2 S2590 

OX I *DX I HL D B2600 

DF (I )*OX! B26I0 

GO To SB B2620 

26 OXIHlO*DX1 B2630 

DX I “XlBSBAR-F ( 1 ) B2640 

DF ( 1 )*DX J B2650 

GO TO 28 B2660 

27 DXIHlD*DXI B2670 

DX I *X I € I Z )— F ( 1 ) B2660 

DF ( 1 |®DX 1 B2690 

28 CONTINUE B2700 

29 DX I *DX I HLD B2710 

DF ( I | *OX I B27Z0 

IF (NSPACE.EO.)) GO TO 30 62730 

IF ( IZ.GE.NA.AND. IZ.LT.NB) DX I « ABB/FLOA T (I NT 1 0 ) 02740 

IF ( tZ.GE.NB.ANP. 17.LE.N) DX I * AN/FLO A T ( I NT 1 0 > 82750 

DF(l)»DXt B2760 

30 XI ( 1Z)*F<1 1 B2770 

X0(17)«F(2) 02760 

YO ( I Z ) “F ( 3 ) 02790 

IF (NDEBUG.EO.O) PRINT 73. I Z.X! ! IZ ) .X0( I Z ) . YO ( IZ ) B2B(>0 

IF (NCHANGE. EO. I .AND.F* 1 )+DF<| ) . GT . X I BSB AR ) DX 1 *X I BSBAR-F ( 1 > 02B1O 

IF (NCHANGE.EO. I .AND.F( ( )+OF( J ) . L T. X I BSBAR. AND . A8S (X I8S8 AR-F ( I I -OF B2BZ0 

1 (1 I l.LT.l .E-07) OXt “XlBSBAR— F ( 1 ) 02830 

DF ( 1 )*DX I 02640 

IF (nDEBUG.EO.O) PRINT 70. DXt B2B50 

31 CONTINUE 62060 

GO TO 34 B2870 
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32 DO 33 

33 XO ( I ) » T AN ( X l(tl) 

C 

c GEOMETRIC parameters for CIRCUL AR AND ELLIPTIC cone 

c 

3A IF (nOEBUG.EO.I ) GO TO 36 

00 33 !•!. LIMIT 

30 PRINT 69. I .XI ( I 1 iXOll > . YO( I I 
36 IF (M.E0.3) GO TO 6« 

DO 4A I«l .LIMIT 
IF (M.EQ.4 ) GO TO 37 
IF (M.EQ.l. OR. M.EO.2) GO TO 38 
IF (m.EQ.S) GO TO 40 
y? 6XM >-2.»xor i > 

GXX< I >-2. 

GY( I >*2.« ( YO ( I 1“ ACC I 
GO TO 39 

30 GX< I »»2.*T**2*X0< I J 
GXX< i )-2,*T**2 
GY t 1 )-2.«YO< I I 
39 GYY( J ) -2. 

GXY( | )-0.0 
GO TO 43 

4(5 IF <X0C I I.LT.BSBAR) GO TO 41 
IF <xO( II.GE.BS8AR) GO TO 42 
41 GX( I ) -2.*xO< | 1 

GY< I »«- 2.*SQRT( R S*»2-X0< I |**Z) 

GXX < | )«2. 

GYVC J * -2. 

60 TO 43 

4 t GXfl >*TAN(PHI*R 1 
GY( I )■-! .0 
GXX( I )*0.0 
GVY ( t )*0.0 

43 IF (NDEBUG.EO.O) PRINT 74. I , G*< I > • GY< I ) .GXX ( 1 > . GVY ( I > • GX V (I I 

44 CONTINUE 
GO TO 64 

c 

c CALCULATION OF BOOT GEOMETRY FC» WINDXARD SIDE OF PLATE WITH 

C ROUNOED EDGES - M.6 

C 

43 NSTEP-2 
NINTHS 
NOUAO-1 


Q2eaQ GO Vf> 51 

B2690 49 DSMOlD-OS 

B2900 DS*CHECK2-F( l ) 

82910 OF < 1 ) -OS 

82920 GO To 31 

82930 30 OS— F(l) 

B2940 si CONTINUE 

B2950 32 xl N] -F ( 2 I 

02960 PRINT 81. XJP.xP.AB 

82970 XI (NA)-ANA*X INI 

02980 XI (NJ-CNC4XINI 

82990 AFAC-2»KJUNCT*(N-N8> 

03000 IF (NOE6UG.EO.O > PRINT 82. K JUNCT .N.NB . AF AC 

B30I0 XI (NB)»CAFAC*X|P-*XI IN) )/(AFAC*l . ) 

83020 XI INB-I )»XIP-(XI CNJ-Xl <NS) l/AFAC 

03030 |F (NDEBUG.EO.O) PRINT 80. X INI .X I INA ) . X1(N) .X I I NB ) .X | (NB- I ) 

03040 IF (NA.EO.il GO TO 53 

83050 AA-X| (NA)SFLOAT(NA-t ) 

03060 33 ABB- (XI (NB-I )-XI (NA ) )/'FLOAT (NB-l-NA I 

03070 AN*(xl(N\-Xl (NBI) /FLOAT (N-NB) 

B3080 IF (NDEBUG.EO.O) PRINT 77. AA.AB8.AN 

B3090 DO 53 1*1 • N 

83100 IF (NA.EO.I ) GO TO 54 

B3II0 IF f I .GE. I .AND. I .LE. nA ) X I i I I * AA4FLOAT < I - J > 

83120 54 IF ( I .GE. (NA-f 1 ) .AND. I .LE> (NB-1 ) ) X I ( I > = X I (NA )*A6B*FL0AT ( I -NA ) 

B3130 IF ( I . GE . NB . AND .I.LE.N) X 1 U >* X I ( NB ) ♦ANFFLOAT ( I -NB 1 

83140 gg CONTINUE 

B3I30 IF (NDEBUG.EO.O) PRINT 67. (XI (I ). 1*1 .LIMIT) 

83160 NF*3 

83170 MINT *6 

83180 NOUAD*2 

83190 NSTEP-2 

83200 IF (NA.NE.ll DX I* AA/FLOAT < I NTl 0 ) 

832)0 IF (NA.EO.I) Dx I “ABB /FLO AT ( I NT 10) 

83220 IF (NOEBUG.EO.O) PRInT 78. DXI 

83230 XI (I 1*0.0 

83240 X0(l)*0.0 

83250 YO ( 1 I * — T*AB 

83260 F(1)«X1(1) 

83270 F <2 ) -XO 11) 

83280 F ( 3 ) - YO < 1 ) 

83290 OF (!) -DX I 

83300 1Z*1 

B3310 IF (NDEBUG.EO.O) PRINT 73. 1 Z.F < l ) .F (2 ) . F <3 ) 


B3T6G 
03770 
B37B0 
83790 
83800 
B3810 
B3B20 
83830 
B3B40 
83650 
B3B60 
B3870 
B380O 
B3B90 
B3900 
83910 
B3920 
B3930 
83940 
0 3950 
B3960 
03970 
B3980 
B3990 
04000 
B4010 
04020 
04030 
B4040 
B4050 
04060 
B 4070 
04080 
B4090 
04100 
041(0 
B4120 
84130 
B4140 
B4130 
84160 
04170 
B4 1B0 
04190 


F( 1 )>0.0 83320 

F <2 >«0. 0 03330 

DS*.OI»AB B3340 

OF ( 1 )*0S 03330 

NCMAnGE-1 03360 

CHECK 1*XP 03370 

CHECK 2 "XP*T*AB /SORT ( 2 • I 03380 

0031 I NTCNT-I .100000 83390 

CALL DERI V (ACC* R C. ThETAR.NJNT. NCHANGE. NDEBUG.T.AB.F. OF. NF.XOO.XIN 03400 

1 1 .XIN.XP.RS.PMIWR.XIBSBAR.YW IG.BSBAR) 0 3410 

IF (NCMANGE.EQ.3. AND.ABSIF ( I ) 1 .LE . 1 .E- 10 ) GO TO 52 03420 

CALL RUI9CUT (ACC.RC.THETAP.NINT .NCMANGE.NSTEP.NOEBUG.T. AB.F.OF.FC. 83430 

I DFC "OS. AB1 .AB2.A03. AB*.NF.EPSIOOM.NQUAO.XOO.X!N1 . X 1 N . X® . RS .PH I WR . X B3«40 

2 I BSBAR. YX1G.BS0AR ) 83450 

IF (NCHANGE.EO.I .AND.ABS(CMECKt-F( 1 M.LE. 1 .e-07) GO TO 46 B3460 

IF (NCHANGE »EQ.2. AND. A8S ( CHECK? -F (J )).LE.l .E-07 ) GO TO 47 B3470 

IF ( NCHANGE. EO. 1 .AND. ( F ( I ) + DF ( 1 • ) .LE. CHECK! • AND • CHECK l - < F ( 1 >40F ( 1 ) 03480 

I >.GT. J.E-07) GO TO 5| 03490 

IF (NCHANGE .EO.2. AND. (F( l > +OF( 1 ) > .LE.CMECK2. AND.CHECK2- (F ( I ) +0* (1 ) 03500 

1 I.GT.l .E-07) GO TO 3| B3510 

IF ( NCHANGE. EO. 1 .AND. (F( 1 >+DFC 1 > ) .LE.CMECKl . AND* CHECK I - ( F { I (♦OF ( I I 03520 
1 I.LE.l .E-07> GO TO 48 83530 

IF (NCHANGE. EQ. 2. 4ND. (F ( J j.DFI I ) ) *LE . CHECK2 . AND .CHECK2— ( F ( l >-fOF(l ) B3S40 

I I.LE.l .E-07) GO TO 40 03550 

IF (NCHANGE. EO. I .AND. (F( 1 ).DF( 1 > I.GT.CHECKI ) GO TO 4fl 03560 

IF (NCHANGE. EQ. 2. AND. (F(l).OF(t H.GT.CHECK21 GO TO 49 03570 

IF I NCHANGE .EO. 3 .AND. (F ( I ).DF( 1 > > .LE.0.0 . AND. ABS <F ( 1 >*DF ( I » I.GT.l • 03580 

1 E— 07 ) GO TO 31 03390 

IF ( NCHANGE. EQ. 3. AND. (FI I )+DF( I » ) .LE.0.0 .AND. ABS < F ( I >+0F ( 1 ) ) .LE.l • 83600 

t E— 07 ) GO TO 50 83610 

IF ( NCHANGE. EO. 3 .AND. CF< 1 l+DFI 1 > > .GT.0.0 ) GO TO 30 03620 

46 NCHAnGE-2 B3630 

DS*DSH0LD 83640 

OF • 1 ) “DS 03630 

XIP*F(2) 83660 

GO TO 31 03670 

47 NCHANGE -3 83680 

F ( I I »-T *AB/S OR T (2 • ) 03690 

DS-DSHOCD B3700 

DF ( I )*DS 03710 

GO To 51 B3720 

'4B DSHOlO*DS B3730 

0S*CHECK1-F( 1 J B3740 

DF II) “DS 03750 


NCHANGE* 1 B4200 

OO 6| 12*2. LIMIT 04210 

DO 39 1*2.100000 B4220 

CALL OERIV (ACC. RC.THETAR.NINT. NCHANGE. NOEe^G.T.AB.F. OF. NF*XOO.XIN B4230 
1 I . X 1 N. XP.RS • PH I MR .XI BSBAR • YW 1G . BS0AR ) 8*240 

CALL RUNKUT ( ACC . RC . THET AR . N I NT . NCHANGE . NSTEP . NQEBUG . T . AB .F . OF . FC . 04250 

10FC.0X! .ABl » AB2. AB3. A04.NF.ePSlGOM.NQUAO.XOO.XINl , X l N ,XP . RS .PH t . 84260 

2XIBSMAR.YHIG. BSBAR) 84270 

IF (NDEBUG.EO.O) PRINT 72. I.F(1),F(2).F<3> B4280 

IF (ABSCFIl )— XI(I2)).LE.I.£— 10) GO TO 60 B4290 

IF ( |2. EO.NB. AND. NCHANGE. EO. 1 .AND.ASSIFI 1 )-XIP).LE. I .E-07) GO TO S B4300 
16 BA 3l 0 

IF ( I Z. EO.NB. AND. NCHANGE. EO. 1 .ANO.FI I >*DF< I ) . L T . X I P . AND. ABS ( X l P-F < 04 320 
I 1 >-DF< I ) >.GT.I .E-07) GO TO 39 B*330 

IF ( IZ.EQ.H0.AND.NCHANGE.EO. J .AND. FI 1 H-OF( 1 ) . L T . X I P . AND. ABS ( X I P-F < 04340 

I I ) -DF (III .UEi I .E-07 ) GO TO 57 84350 

IF ( lZ.EO.N8. AND. NCHANGE. EO. I .AND.F ( | ) + 0F( I I.GT.X IP ) GO TO 37 84360 

IF ( IZ. EO. NS. AND. NCHANGE. EO. 2. AND. F ( 1 ) + DF( I J.LT.X1 ( NB ) . AND* A0S( X I ( 6*370 
I NOl-FC l >-DF I 1 ) I.GT. I .E-07) GO TO 39 - - - 04380 

IF ( I Z.EQ.NB. AND. NCHANGE. EO. 2. AND.F ( I >*DF ( 1 I.LT.XI ( NB ) . AND* A BS ( X I ( 84 390 
INB)-F( 1 )-DF( 1 > I.LE.l .E-07) GO TO 38 84400 

IF I IZ. EO.NB. AND. NCHANGE. EO. 2. ANO.FI I )+OF( 1 ) .C7.X I (NB ) ) GO TO 50 B4410 

IF ( IZ.NE.NB. AND.F [ 1 ) ♦OF ( 1 ) . LE . X I < | Z ).»ND.X 1 ( I Z ) -F < 1 ) -DF ( 1 > «GT. I .E 84420 
1-07) GO TO 59 B4430 

GO To 38 B4440 

36 NCHANGE *2 B4450 

DX I * ABB/FLOA T 1 1 NT 10) 84460 

OF( l ) *DX 1 B4470 

GO TO 39 B4480 

37 DX I »X IP— F ( 1 > 0*490 

DF(l)»OXI 84500 

GO TO 39 8*310 

38 OXI-xt ( IZ)-FI 1 ) B4520 

DF ( 1 l *DX I 0*530 

59 CONTINUE 84540 

60 IF ( IZ.E0.N8-l > DXI * AB9 /FLOAT < I NT 1 0 ) B4550 

IF (JZ.GE.NB) DX J -AN/FLOAT ( INTI 0 ) 04560 

IF (NOEBUG.EO.O) PRInT 70. DXI B4S70 

DF(l)»OXI B45B0 

XI ( IZ)*F<1 » B4590 

XO I IZ )*F <2 ) B4600 

VO ( ! Z ) *F ( 3 ) 846)0 

IF (NDEBUG.EO.O) PRINT 73. I Z. X I ( I Z ) . XO ( I Z ) • TO < I Z ) B4620 

61 CONTINUE 84630 
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APPENDIX B 


DO S3 I *1 * N 0*64 0 

IF M.GE.NB) GO TO 6? 0*650 

GX ( I 1*0.0 0*660 

GYt I |*-1 .0 B*6TO 

GXX / | >*0.0 0*680 

QYY ( | ) * 0 • 0 8*690 

GO TO 63 0*700 

62 GX< I )*2.*<X0( | )-XP) B*7|0 

GY < I | • 2 • *YO (|| B*720 

GXX ( i 1=2. 0*730 

GYY ( I > *2 • B4 7*0 

63 CONTINUE 0*700 

64 IF ( M.EO . 0 I LIMIT1M 0*760 

IF (n.EO.I .OR. M.EO. 2. OR. M.EO. 6) LIM1T1-N 0*770 

IF <M.E0.3.0Q.M.E0.4,ORoM.E0.5l L1M!TI*NA1 0*700 

c 0*790 

C GEOMETRIC PARAMETERS 0*800 

C 0*810 

DO 66 I >1 (LIMIT) 0*820 

At < ! |»1 •♦xOi I )**27Y0< I >**2 0*830 

A4 ( t )*XO( I ) »GX ( I **Y0 C I >*GY! | ) 048*0 

A2 < I | *GX < I 1*«2*GY 1 1 > **2-f A* ( I |»»2 0*850 

A5 < I ) *GY ( t ) + VO I I I » ** (It 0*860 

A6II j-GXf J >*XOfl >*A*/| ) 0*870 

A 7 1 1 i-XOt I J*GY{ I >-YOtl 1*GX< I > B*880 

C 0*890 

C THE TERM -2 GX GY GxY MAS BEEN OMITTED IN THE EOUATIONS FOR *8 0*900 

C SINCE GXY IS ZERO FOR ALL BODIES TO BE CONSIDERED FOR THIS BA910 

C program 6*920 

c 0*930 

A8 < I | «G Y ( I l*«2*GXX( I )*GX < 1 I **2*GYY < | ) 0*9*0 

IF <M.E0.6-AnO. I .LT.nB ) AkB(|)«O.0 B*950 

IF (M.EO. 6. AND. 1 .GE.NB) AK0I | |*-A8( | »*<A||| I/A2CI >>•*! .5 B*960 

IF <M.NE.6> AX0 < | ) » - a8 ( | ) * < A I (I 1/A2I I I )*• I *3 04970 

IF lABSIXOUl I.LE.l .E-!O.AND.A9S(YO< m.LE.l .E-IO) GOTO 65 0*980 

PSIOll 1*57 *29577951 *ATAN2(YO<ll* XO (1)1 8*990 

65 0< 1 1*1 .0 B500O 

QPtI,»0.0 050 I 0 

IF <NOEBUG.EO.OI PRINT 70 05020 

IF <NOE0UG.EO.OI POINT 71. 4 1 < I » • A2 < II . A3 I J ) . A4 < I > , A5 < 1 ) . A6 < 11 . A7 < 05030 

1 I ) <40 < I I * AKQ ( I > .GX I | ).GY< I) .PSI01 1 ) 050*0 

66 CONTINUE 05050 

RETURN 05060 

C 05070 


0FC< I >*DF( t > C 190 

1 FCIIHFIII C 200 

2 IF (nOEBUG.EO.O ) PRINT l 1 , OS C 210 

0F( I )*DS C 220 

DO 3 J *2. NF C 230 

A81 < I >*DS»DFC( I ) C 2*0 

3 F< I l*FC 1 1 » + ABl f I J/2. C 250 

FC I ) =FC (1 J+DS/2. C 260 

IF < NDEBUG.EO. 0 ) PRINT 12, ( I .AB1 ( I ) >F ( | ) , I *1 ,NF > C 270 

CALL CE»IV fACC,RC.THETAR,NINT.NCHANGE.NOE0UG»T.Ae.F.OF.NF.XOO.XIN C 280 

1 1 • XlN.XP.RS.PHIWR.X IRSBAR. YW IG.3SBAR I C 290 

DO * 1*2. NF C 300 

AB2( 1»»DS*DF< I > C 310 

« FCI )*FC(I H-A82I I 1/2. C 320 

IF (NDEBUG.EO. 0 I PRINT 13. ( I . AB2 < I 1 . F ( I > . I • 1 . NF J C 330 

CALL DERIV (ACC.RC.THETAR.NINT.NCMANGE.NDEBUG.T.AB.F.DF.NF.XOO.XIN C 3*0 

I I .XIN.XP.RS.PhIWR.XIrSBAR. YWIG.QSBAR) C 350 

OO 5 l*2.NF C 360 

AB3< I 1*DS*DF ( I > C 370 

5 F< I )=FC (1 >*A03( 1 1 C 380 

F < I ) iFC ( I >*DS C 390 

IF (NDEBUG.EO.O ) PRINT |*. ( I • A03 ( I ) <F < 1 I • I *1 *NF > C 400 

CALL DERIV (ACC. RC.THETAR, MINT. NCHANGE.NDEBUG.T.AB.F.DF.NF.XOO.XIN C *10 

I 1 .X1v»XP.»S.PH|WO,XIrSBAR.Y* JG.QSBAR) C 420 

DO 6 1*2. NF C *30 

ABA ( l >*DS*DF ( 1 1 C *40 

6 F ( I >=FC ( I l + l ./6.* t ABi ( I )*2«*AB2 ( I )+2»*A03 < I H*B« ( I ) > C *50 

IF <NDEBUG.EO.0> PRINT 15. < I.AB*( I ).F( J >.1«1 ,NF1 C*60 

IF <nST£P. EO. I I RETURN C *70 

IF (NOUAD.EO. 1 .AND.F < 1 > .LT. ,2*A0 > RETURN C *80 

DO 7 1*2. NF C *90 

IF (nOUAD.EO.2.AND.ArS<A 02( I 1/DS1.LE.I .E-061 GO TO 7 C 5oO 

IF (NOUAD.EO. 1 .AND. ARS( ABI ( I )/DS> .LE.I «E-06 I GO TO 7 C 510 

IF (nQUAD.EO.I .ANO.AOS(AB* ( 1 »/DS>.LE»l «E-06) GO TO 7 C 520 

IF (NOUAD.EO. 2) TESTcABSM .-AB3( S )/AB2( ! ) I C530 

IF (NOUAD.EO. 1 > TEST c A8S < 1 . -ABI ( I 1 / A0* (III C 5*0 

IF M.EO. 2) TESTMAX*TEST C 550 

IF (TEST.GT. TEST MAX | TESTMAX=TEST C 560 

7 CONTINUE C 570 

IF ITeSTMAX.GE.EPS|GOM.AND.ABS<DS).GT.OSMIN» GO TO 8 C 580 

IF (TESTMAX.LE. ( . l*EPSIGOM) I GO TO 9 C 590 

RETURN C 600 

8 0S'=.“i*0S C 610 

GO TO 2 C 620 


67 FORMAT <6H X I < I > / I BE | 6 . 8 > 1 

68 FORMAT <7M X 1 ( 1 ) ■ E 1 6 . 8 . 2X . 7HX I < N A > . £ l 6 . 8 , 2x . 5MX I N 1 «E 1 6. 6 . 2X . 7HX I (N 
18)*El6.a.2x.6HXl (N»» e16.8) 

69 FORMAT <3H I ■ I5.2X.6HXI < I 1 «E 16.8 .2X.6HX0 ( I ) *E 1 6.8 » 2X< 6HY0 ( I )*EI6.8 
1 ) 

70 FORMAT < 1 OH AIIIIETC.) 

71 FORMAT (1X8E16.BJ 

72 FORMAT <IXI5.*E16.8) 

73 FORMAT <AH 1Z«15.2X.7HXI <1 Z ) *E1 6 .8 . 2X .7HX0 1 1 2 ) »E l 6 .B.2X .7HYO U2 >*E 
1 16*8 I 

7* FORMAT ( 3H 1 ■ 1 4 . 2X . 6hGX ( I )=E16«B.2x. 6HGY ( I ) *E 1 6.8 , 2x « 7HGXX < I ) *E 16. 
10.2X.7HGYYI J ) »E16.8. ?X. 7HGXY ( I )=E16.8 ) 

75 FORMAT (3H I ■ I * . 2X< 6MXI I I )aE 1 6» 8<2X<6HX0< I )*E 1 6*6 « 2X.6HYO (I ) =E1 6 .8 
1 ) 

76 FORMAT (6H INTCNT* I5.2X.SHXINI =E16.8/> 

77 FORMAT (*H AA = EI 6.B , 2X.*HA09 = E16»8.2x. 3HAN3EI 6.8 ) 

78 FORMAT ( 5H OX | wE 16.8) 

79 FORMAT I 1 A6/ (0E1 6.8 » ) 

00 FORMAT (6H X IN! *EI 6.8.2X.7HX I (NA >b E i 6.8.2X.6HX I (N)sE16.8.2X.7HX I (N 
1B)=E|6.8.2X.9HX! (NB-| >=£16.8 ) 

01 FORMAT (5H XIP*E16.B,2x.3HXP=E16.8.2x.3HA0eE16.B> 

02 FORMAT (3I5.E16.8I 

03 format (AH AB«EI6.a.ax.6HBSBAH=E16.0.2x.3HRS»EI6.8.2X»BHXI0SBAR*EI 
l6.a.2X.8HX0BSBAR=E16,B ) 

FND 

SUBROUT INE RUNKUT ( ACC . RC . THET AR . N I NT . NCH ANGE • NSTEP , NDE0UG. T < AB .F . 
I OF .FC • DFC . DS * AB I . A02. A03. AB* .NF ■ EPS 1 GOM .NOuAO • XOO . X IN 1 . X I N .xP.RS .p 
2H I WR , X I BSB AR . VV 1 G . BSrAR 1 

c 

C INTEGRATION FOR BODY GEOMETRY 

C 

DIMENSION F(NF). OF(nF). FC ( NF > • OFC(NF). AB 1 I NF I . A02(NFI. A03(NF 
1 > . AR* INF) 

NOE'BuG*! 

IF (NDEBUG.EO.O) PRINT 10. NF .F ( I ) . F (2 l .OF ( 1 > . OF ( 2 > 

C 

C FIXED STEP INTEGRATION - NSTEP- 1 • VARIABLE STEP INTEGRATION - NSTE 

C QUADRATURE - NOUAD* 1 . NOT QUADRATURE - NQUAO-2 

C 

TESTMAX*.5»EPSlGOM 

DSMAX*.O2»A0 

DSMIn-I .E-06 

DO 1 1 = 1 .NF 


85080 
85090 
05100 
051 10 
05120 
B5I30 
051*0 
05! 50 
85160 
051 70 
BSI80 
B5I90 
05200 
8521 O 
85220 
65230 
852*0 
85250 
85260 
B5270 
05280 
85290 
85300 
85310 
B5320 
85330- 
C 10 
C 20 
C 30 
C *0 
C 50 
C 60 
C 70 
C 80 
C 90 
C 100 
c no 
C 120 
C 130 
C 1*0 
C ISO 
C 160 
C 170 
C 1 BO 


9 IF, ( I 1 .9«OS).GT.DSMAX) RETURN 
DS* I ,9*DS 
OF ( 1 ) *05 
RE TURN 


10 FORMAT (7W RUNKUT/ I 4, 9E 16. 8 > 

1 1 FORMAT (AM DS*E16.8> 

12 FORMAT ( 1X.2HI»I5.2X.6HBI ( I >=E16.8.2X.5HF( | >*E16.B| 

13 FORMAT llX.2Hl«la.2x.6H02in*EI6.8.2X.5HFU >*E16.B) 
l* FORMAT <IX.2HI«IS.2X.6H83<I I *E1 6 .8. 2X« SHF < f l*Ei6.8f 
15 FORMAT I1X.2HI»|5.2 x,6HB*( I > -E 1 6 . B . 2X . SHF < | > «E I 6 . 8 > 

END 

SUBROUTINE OEH I V ( ACC • RC • T HE TAR . N I NT . NCH ANGE « NDEBUG . T , AB .F . DF .NF . X 
1 OO . X t N 1 . X I N . XP ,RS .PH I MR . X I BSBAR . YW 1 G.OS0AP > 

C 

C COMPUTE DERIVATIVES FOR BODY GEOMETRY INTEGRATION 

C 

DIMENSION F(NF|. DF ( nF > 

NDEBllG* 1 
C 

C N1NT = 1 COMPUTES X I N 1 FOP M*1.2 

C NINT»2 COMPUTES XO.VO FOR M* 1 .2 

C M=3 DOES NOT NEED DERIV 

C N I NT = 3 COMPUTES XIN1 OR X!(N + l) FOR M«A 

C NINT=A COMPUTES XO.VO FOR M=* 

C NI NT *5 COMPUTES XIN1 FOR M*6 

C N I NT = 6 COMPUTES XO.YQ FOP M*6 

C N I NT .7 COMPUTES XINI FOR M*5 

C NINT=B COMPUTES XO.VO FOR M*5 

c 

GO To <1.5.6.17.7.14.19.23). NINT 

1 GO TO (2.3) • NCHANGE 

2 FB1=T*S0RT(AB*»2-F( 1 )**2) 

GX 1 =2 « »T**2*F ( i > 

A 1 I*1.*F(I ) **2+FB 1 **2 
GO TO * 

3 XOO*l ,/T*SORT ( AB*«2*T**Z-F ( I )**2 ) 

FBI=T*SORT ( AB**2-XOO**2 ) 

GXI=2.»T»*2*X00 

A 1 I * 1 . +XOO**2+FB I •• 2 

4 GYI*-2.*FB1 

A4 ]=2.#AB*«2*T«*2 

A2 l = GXJ**2+GY|**2*AAJ**2 


C 630 
C 6*0 
C 650 
C 660 
C 670 
C 680 
C 690 
C 700 
C 710 
C 720 
C 730 
C 7*0 
C 750- 
0 10 
D 20 
0 30 

0 *o 
0 50 

D 60 
D 70 
D 80 
0 90 

0 100 
D 1 10 
D 120 
D 130 
D 1*0 
0 150 
D 160 
O 170 
0 180 
D 190 
D 200 
D 210 
0 220 
O 230 
O 2*0 
D 250 
D 260 
0 270 
D 280 
D 290 
0 300 
D 3)0 
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APPENDIX B 


IF (NCHANGE. EQ.l I OF <2 )*-SORT< A2t)/*<A1 l*GYI) 0 320 

IF I NCHANGE.EO.2) OF <2 ) -SORT (A2 J >✓! A J I *GXI > 0 330 

IF (NDEBUG.EQ.O ) PRINT 26. NJNT . T . AB .F (I I .F (2 > .FB I *6X1 .GY I • A 1 | , A4 I D 340 
I .A2t .FI .DF< l » .OF (2) 0 3S0 

RETURN 0 360 

5 0UAN«.AB»*2-F<2>**2 0 370 

FBI*T*SORT(ABS(0UAN> j 0 380 

GXl*P.»T**2*F<2> 0 390 

GY!*2.*F<3> 0 400 

Ml«! .*F(2>**2+FB1**2 0 410 

A4 I *2 • • AB**2*T **2 0 «20 

A2I»GXI**2+GYI**2+A4f**2 0 430 

DF<2)*-A1 T*GY1/SQRT( *21 » 0440 

DF<3j=Al I*GXI/SQRT(A 2 I » 0450 

IF (NOEBUG.EO.O > PRINT 26. NINT. T. AB .FB I . GX I . GY I . A1 t . A2 l . A4 I «F ( I > . 0 460 

IF«2».FI3),DFCJ).DFI2>.DF<3) 0 470 

RETURN D 460 

6 QUAN»SQHT(RC**2-F(1 ) #*2 ) 0 490 

YOO»ACC-OUAN 0 500 

GX I *2. *F < t J D 310 

GYI*-2.*OUAN 0 320 

A1 !*|»+FCI >**2+YOO**? 0 530 

A2T*GXI*#2+GY!**2+(F(1 >*GX1 +YOO*GYI >**2 0 340 

DF 12 )*— SORT ( A2 I )/ (At | *GY I ) 0350 

RETURN 0 560 

T IF ( NCHANGE. E0.1 I GO TO 8 0 570 

IF (NCMANGE.GT.il GO TO 10 0 580 

8 YOO«-T*AB 0 390 

GX 1*0.0 0 600 

GYI*-t.O 0 610 

9 A) I'J.tFII >**2+YOO**2 O 620 

A4I«F< 1 >*GXl+YOO*GYI O 630 

A2 I *GX I 442+GYl 4*2+ A4 i **2 0 640 

GO To 13 0 630 

10 IF (nCHANGE.EO.2) GO TO 11 D 660 

IF (nCMANGE.E0.3J GO TO 12 O 670 

11 YOO»-SQRT ( T**2*AB**2- (F( 1 )— XP >**H 1 D 680 

GX!-2.*(F<1 >-XPI D 690 

GYI«2.»YOO D 700 

GO TO 9 0 710 

12 XOO-xP+SORTCT««2*AB**2-F(I )*«2I D 720 

GX 1 »2« * (XOO— XP > D 730 

GY t »2« *F ( 1 ) D 740 

A 1 ! » l «+XOO**2+F ( 1 )**2 0 750 


25 GXI«tAN(PN1mB> 
GYI--I.0 
GO TO 18 


26 FORMAT (17M SUBROUTINE DERI V/ 1 I 5/ < 8E1 6.B )» 

27 format U7H subroutine oeri v/2I5/(qei6.8m 
END 

SUBROUTINE APPROX 

COMPUTE APPROXIMATE SHOCK SHAPE 

COMMON F ( 3 1 .OF <3 I . FC (3 ) .OFC ( 3) • AB1 ( 3 ) . AB2 ( 3 ) . AB3 (3 ) . AB4 ( 3 > 

COMMON FUN <20. 6 > • DFUN ( 20. 6 1 • FUNC ( 20. 6 ) .OFUNC ( 20*6) .01 (20 .6 > . B2< 20. 
16).B3(20.6I.B4(20.6).SBAR(20 ) . OSBD2 < 2 0 ) » 5BARP ( 20 ) » OSB 1 <20>.DSB2<20 
2) . DSb 3 ( 20 > ■ DSB4 ( 20 ) . Xl ( 20 ) .XO ( 20 ) . VO < 20 » • A I ( 20 I * A2 (20 > . A3 <20 1 . *4 (2 
30 ) » A5 < 20 ) . A6 ( 20 ) • A7 ( 20 > . A0 ( 20 1 . AKB ( 20 I .GX (20 > .GY <20 > .GXX ( 20 I «GYY < 2 
40>.GXY(20>,ETA(20),ETAS(20 l.ETASP(20l .0ETAD(20».RHO(20).R(20 J.P<20 
5> ,U<20) .VC 20) .W<20) .PP(20) .UP (201 . VP < 20 1 • WP < 20 ) • XS (20 ) . YS <20 > .OUOZ 
6(20) . DPD7 ( 20 ) . DVD2 (20 ) .DWDZ<20 ) • AM 120 ) .S ( 20 ) • ZETAt ( 20 ) « ZETA2 <20 > *2 
7ETA3 (20 ) .ZETA4 (20 > ,Dul (20 ) .0U2 <20 ) ,DU3<20 ) ,DU«<20 ) .DM] <20 I .DM2 (20) 
B. DM3 ( 20 ) .0X4(20 ) « OVI (20) .QV2<20) • 0V3 ( 20 > • DV4 ( 20) .G <20 ) «PS ID< 20 I «0P 
91 (20 ).OP2(20 > .DP3 (20 > . 0P4 (20 ) .0E0NS(20 ) .CROSSM (20) .RHOISEN<20 I 
COMMON U I SEN (20 > . POROG AM ( 20 ) . O < 20 ) , QP ( 20 ) . PS l SD < 20 ) «BERNOU.(20 ) .XS 
1 BAR (20) .YSBAR(ZO) • XOBAR ( 20 ) . YOBAR (20 > • XBAR (20 ) « YBAR (20 > 

COMMON AAST.B) J .B12.0J 3.B2J .B22 » B23.NSPACE.P1 .M.N.LJ »T. THETAR .G4MM 
1 A * OX I . CON ) .CON2.STMACH.AB.A11 .A12.A13.A21 .A22.A23.A31 . A32 . A33, ALPH 
2 AR. Nl. NDEBUG. H. HK. S IGMA. RAD. NF. NUINES.EPS IG.NPR I NT. SPACER. UL EE. UW I 
3NQ .RHOL EE . RHOW IND.NEXTRAP.EPS! GOM , EPS I NT . X I N 1 . S I GNP 1 
COMMON XP » X I P » PH 1 MR « bSB AR . QS . RS . X 1 BSBAR 
COMMON ✓ERROR,' ER < l 2 ) . ERR (12). BL* ( | z j 

COMMON VCCI20 ) .MCC(20> .SBARMLDC20 ) . XBKLD ( 20 ) • YBHLO ( 20 ) 

COMMON CP (20 ) . XMACHB ( 20 > . YMACHB ( 20 > . UC I 20 ) . VC ( 20 ) • MC < 20 ) » VX < 20 ) »VY 
1<20) • THETNOR ( 20 ) .PS I NOR (20 > .POPTI (20 ) .PTOPT 1 (20) .PT<20) .POASTSO (20 
2) .POP INF (20 ) . XMACH ( 20 > « VMACH (20) • CPSHOCK < 20 ) . CPBOO Y < 20 > 

COMMON ✓BLOCKS/' NCNT 
NDEBUG=1 

IF (NDEBUG.EO.OI PRINT 12 
IF (M.EQ.0.0R.M.EQ.2 ) GO TO 1 
IF (M.EQ.3.0R.M.EO.4.0R.M.E0.3) GO TO 5 
IF (M.E0.1 .OR.M.EQ.6) GO TO 7 

APPROXIMATE SHOCK SHAPE FOR CIRCULAR AND ELLIPTIC CONES 


D I 200 
01210 
D 1 220 
01230 
D1240 
D 1 250 
D 1 260 
D 1 270- 

e 10 

E 20 
E 30 
E AO 
E 50 
E 60 
E 70 
E BO 
E 90 
E 100 

e 1 10 
e 120 

E 130 
E 140 
E 150 
E 160 
E 170 
E 180 
E 190 
E 200 
E 210 
E 220 
£ 230 
E 240 
E 230 
E 260 
E 270 
E 280 
E 290 
E 300 
E 310 
E 320 
E 330 
E 340 
E 350 
E 360 


A4t»xOO*GXI+F( 1 )*GYI D 760 

A21«GXI**2+CYI**2+A4 1**2 D 770 

13 IF (NCHANGE.EO.l. OR. NCHANGE.EO.2) DF ( 2 ) — SORT ( A2 1 ) ✓< A l I*GV l ) 0 780 

IF (NCHANGE.E0.3l DF (2 )»SQRT ( A2 I )✓( A1 I *6X1 ) D 790 

IF (NDEBUG.EO.OI PRINT 27. VINT .NCHANGE .Fill .F<2 I.AII.A4I .42 I . OF ( I D 80 O 

I > .DF(2) .6X1 «GYt .XP.T, TOO. AB.XOO D 810 

RETURN D 820 

14 IF ( F ( 2 I .LT.XP ) GO TO 13 D 830 

IF IFI2 J.GE.XP) GO To 16 D 840 

15 GXl-0.0 O 850 

GYI«— 1 .0 D 860 

GO TO I e D 870 

16 GX l *2»* IF (2 1— XP 1 D 860 

GYI-2.#F<3) O 890 

GO TO IB O 900 

17 GXl«2»*F<2) O 910 

GYI «2« * (F (3 ) -A CC ) 0 920 

18 At !■! .+F(2>#*2+F<3)*#2 D 930 

A2t*GXI«*Z*GY:i#*2+<r_<2l*GXI+FC3)«GYI >**2 . ^ « «0 940 

0F(2>*-A1 I*GYI/SORT<a2I ) O 9S0~ 

DF < 3 ) « A 1 I *GX I ✓SORT ( A2 I 1 D 960 

IF (NDEBUG.EO.OI PRINT 27. NINT .NCHANGE .F ( 1 ) ,F (2 ) .F (3 ) .A1 I .A2 I . DF ( D 970 

11 I.DF(2>.DF(3),GXI.GyI .XP.T.AB.YWIG D 980 

RETURN D 990 

19 GO TO <20.21). NCHANGE DIOOO 

20 QUAN.S0RT(RS»*2-FI1 )**2) D1010 

YOO“YM IG— OUAN 01020 

GX 1 "2.*F <11 01030 

GY I *— 2. *OU*N D 1 040 

GO TO 22 D105O 

21 YOO.TAN(PHlMR)* <F<1 ) -AB ) 01060 

GX I ■ T AN ( PM 1 MR ) Dt 070 

GYI--I.0 D 1 060 

22 A1 I«1 .+F<1 >*42+Y0O**2 01090 

A4 I »F < l >*6X I +YOO*GY I 01IOO 

A2t«GXl**2*<m**2+A4j**2 OHIO 

0F(2)*-SQRT(A2I 1/IA1 |*GYI > D1120 

IF (NOEBUG.FO.O) PRINT 27. NJNT .NCHANGE . YOO . 6X1 » GY 1 .A J J . A4I ,42/ ,F ( DJJDO 

ItXDFH ».F<2).0F<2) 01140 

RETURN 01150 

23 GO TO <24.251. NCHANGE 01160 

'24 GX 1*2.*F <2 ) 01170 

GY1*-2.*S0RTI»S**2-F<2>**2> Oil 80 

GO TO IB 01190 


1 THETA 1»ATAN<T*AB) 

THETANbTHETAI 

thetani«thetar 

S[NSQB=» (GAHMA+! • )/2.*S 1 N< THETA 1 >**2+1 ./STMACH**2 
BeTAI«ASlN(SORT(SlNSaB) I 
BE T AO 1 “BET A 1*57. 295 77951 

SJNSOB* (GAMMA+I • ) /Z . *S INC THE TAN 1 ) **2 + 1 . ✓STMACH**2 
BETANt«ASlN<SQRT(S!N<;QB) > 

BE TA ON 1 *SETANI *57.29577951 

IF (nDEBUG.EQ.01 print 13. THETAI .THETAN1 .0ETAO1 .BETADNl 

BETAn»BETA1 

BETAnD=BETAD! 

IF (NDEBUG.EO.OI PRINT 15. THETAN.0ETAND 
ETASlI ) -BETA 1 -THETA I 
IF (M.EQ.O) RETURN 
ETASN1«BETAN1-THETAN) 

ETAS <N ) «BETAN-THETAN 
OUAN) »ETASN1 -ETAS ( 1 ) 

. OUAN2-ETASN1 -ETAS(N) 

QUAN3*Xl (N)-XlNl *" “ * 

NM 1 *N- 1 

DO 4 1*2. NM 1 

IF (Xl < 1 l-XINl ) 2.2.3 

2 ETAS ( 1 )«ETAS( 1 >+QuANj*(XI ( I I/X1N1 > *#2 
GO TO * 

3 ET AS ( I >”ETAS (N)+0UAN2*( (XI ( N ) —X I ( I ) ) ✓QUANS ) **2 

4 Continue 
go to 11 

APPROXIMATE SHOCK SHAPE FOR WINGS WITH DETACHED SHOCK 

5 PSIB.ATAN (T*TAN (THETAR > > 

SINS0B«(6AMMA+) . )^2.#SJN(PSIB+ALPHAR)**2+J.^STMACH**2 
BETA | * AS IN ( SORT (SI NSOB ) > 

ETAS 1 1 )«BETA1-PSIB-AlPHAP 
ET AS ( 1 >*! .2*ETAS<1 1 
TANS|G»TAN(SIGNPI I 
DO 6 

QUAN4 » ( X I ( I l/XI (N+I ) )**2 

ETAS ( I 1 * ( 1 . — QUAN4 )* (£TAS( 1 )+(.5*XI t N+ I) *TANS I G-ET AS < 1 ) )«QU4N4 > 

6 CONTINUE 
GO TO II 

APPROXIMATE SHOCK SHAPE FOR BODIES M-1.6 


E 370 
E 380 
E 390 
E 400 
E 410 
E 420 
e 430 

E 440 

e 450 

E 460 
E 470 
E 480 
e 490 
E 500 
E SI 0 
E 520 
E 530 
E 540 
E 550 
E 560 
E 570 
E 380 
E 590 
E 600 
E. 610 
E 620 
E 630 
E 640 
E 630 
E 660 
E 670 
E 680 
E 690 
E 700 
E 710 
E 720 
E 730 
E 7 40 
E 750 
E 760 
E 770 
E 7B0 
E 790 
E 800 


29 



APPENDIX B 


c e aio 

7 THET A 1 *ATAN I T*AE) ) taLPHAP E B20 

TMETa2“ATANCT*A&)-aLPMAR E 830 

SNSOB7J-<OAMMA+|.|/2.*SINITHETAI )**2+l ./STMACM**2 E 840 

SNSQbT2«<GAMMA+1.)/2.*S:N(THETA2)**2+1./STMACH**2 E 850 

BETAlMASlN<SORT tS NSOBTn» E 860 

BETA?*ASIN«SQRTlSNSOBT2) I E 870 

ETASt -BETA l -THETA 1 E 860 

ETAS2*0ETA2-TME7a2 E 890 

SNSQBN1- CGAMMA + U J/2.*SlNtTMETARj**241 .>STP*ACH#*2 E 9o0 

BET An I - AS IN ( SORT ( SNSOBN 1 i > E 9l 0 

ETASnI * BE TAN l -TMgxAR E 920 

I F (NDEBUG.EO.O) PRINT 16. BLK< 1 J.THETAI .TMETA2.SNSQBT1 .SNS0BT2.BE E 930 
1 TAI .RETA2.ETASI .ETAS2.SNS0BNI .BETAN1 .ETASNI E 940 

DO 1 0 I • 1 * N E 950 

IF (Xl(l)'XINl) a.e.Q E 960 

B ETAS ( I I r ET AS 1 ♦ < ET ASN J-ETASI ) * < X I ( I ) /X INI ) **2 E 970 

GO TO 10 E 980 

9 ETASI I )"ETAS2+IETASN1 -ETAS2 1*1 «2.»X1N1-XM I » J/XINJ J*«2 E 990 

10 CONTINUE El 000 

11 IF (NDEBUG.EO.O > PRINT 1*. < I . X I l I I . ETAS < I » • I ■ 1 »N I EI010 

RETURN E 1 020 

C El 030 

C El 040 

12 FORMAT <I0H SUBROUTINE APPROX 1 E 1 050 

13 FORMAT IBM TNET4I ■E 16 . 8 . 2 X. 8 HTMETANI “EI6.B.2X.7MBETAD1 «E16.e.2x.7M E 1 060 

1 BETAD2-E16.8 1 E1070 

14 FORMAT I3M I ■ I4.2X.6MXI I | l ■EI6.6.2X.8HETASI I l*E16.8) E 1 OBO 

15 FORMAT I8M THET 4N-E I 6.8 • 2X . 7MBET 4ND-E l 6.8 I £1090 

16 FORMAT I 1X1A6/((3E16.B> ) E 1 1 00 

END E 1 I 1 O— 

SUSROUT I N£ U GRANGE IM • I .NP .NL INES.NL I NEP l .NOEBUG. XO. XREAL . YREAL .X • F 10 

1Y.DVDX1 F 20 

C F 30 

C ESTABLISHES LINE ARRANGEMENT. ACCOUNTING FO® SYMMETRY WHERE F 40 

C APPROPRIATE. FOR COMPUTATION OF Xi DERIVATIVES FOR FUNCTION F 30 

C D|F F 60 

C F 70 

DIMENSION XREAL ( I NEP I I . YREAL I fa. 1 NEP 1 I . X < NP ) . Y < NP I F 80 

COMMON /BLOCK 1/ 1STL .NCYCLE .NCOUNT F 90 

NDEBuG=l F 100 

IF (NOEBUG.EQ.O j PRInT 13 F 110 

IF (NDEBUG.EO.O) PRINT |4, 1 . hP . NL J NES . XO F 120 

IF (NOpBUC.EO.O » PRINT IS. ( 1 1 . XREAL ( J I > » YREAL ( i I I « J I * 1 .NLINESI F 130 


NE»(NP-I>/2 F 140 

NsNE+1 F 150 

X(NI«XREAL( l 1 F 160 

YINI-YREALI II F 170 

IF (M.E0.0.OR.M.EO.2 | GO TO 1 F 160 

IF IM.EO.l .OR.M.EO.61 GO TO 3 F 190 

NTESTSNLINES+1 - CNP-I |/2 F 200 

IF I f — NTEST I 1.4.4 F 210 

1 I ZZ=0 F 220 

DO 2 I I ■! .NE F 230 

IF I (I+t I >.GT.N1_|NES) I 22* I ZZ+1 F 240 

IF I < I* I I J.GT.NI.INES ) 1X1-NLINES-I2Z F 250 

IF I ( 141 1 I.LE.NI.INES) 1 XI »I ABS< I-M I > F 260 

IF < { 1-1 1 I.LE.O ) IX2« 1 ABSI I-I I 1+2 F 270 

IF ( < I-I I I.GT.O > IX2» lABSf l-1 1 » F 280 

IF I (I + l I I.LE.NI. |NES ) X(N*I I )» XREAL I 1X1 ) F 290 

IF ( ( I + t I I.GT.NLINES ) X < N+ I I J -2 ,*xREAL (NL INES >-XREAL I IXI > F 300 

XIN-I I I -XREAL 11X2) F 310 

IF (II-II I.LE.O) XIN-II |>-XREAL(IX2) F 320 

IF < ( 141 I).GT.N|_1NES.AND.ISTL.E0«S> Y<N4| !) ■-YREAL 1 1X1 ) F 330 

IF (((1+11). GT . Nl ] N£ s« AND. I STL.NE.S I .OR. ( I I *1 I I.LEiM. I NES 1 I Y(N+II F 340 

I ) eVRpAL < 1X1 > F 350 

IF < I I — I I I.LE.O. AND. lSTL.E0.51 V in- I I l»-YRE*L I I X2 ) F 360 

IF (1(1-11 I.LE.O .AND* I STL.NE.S I .OR* ((!-!!>. GT.OJ) V (N-| I ) ■ YREAL I I X F 370 
12) F 380 

2 CONTINUE F 390 

NP1«NP F 400 

GO TO 8 F 4 | O 

3 NTEST 1 5 m NL I NES— ( NP— | )/2 F 420 

IF (1 -NTEST 151 1.1.5 F 430 

4 NTEST 1 *NL INES+1 - | F 440 

NTESt2»(NP~1 >/2 F 450 

IF (NTEST1 .EO.NTEST2 ) NP|*M> F 460 

IF (NTEST1 .LT.NTEST2 ) NP I -2* (NL I N£S ♦ I - 1 1 ♦ I F 470 

J8“NL I NES-NP 1+2 F 400 

NE* (NPI -1 1/2 F 490 

N*NE+I F 500 

LL*NL INEP1 F 310 

GO TO 6 F 520 

5 IF (I.EO.NLINES) GO TO 9 F 530 

NPI *2* (NL INES- I |4| F 540 

JB=*NL I NES-NP 1 + 1 F 550 

NE*(nP1-1 1/2 F 560 

N-NE+l F 370 


LL=H.|NES F 580 

6 NN«0 F 590 

DO 7 J* JB.LL F 600 

NN*NN+1 F 610 

X(NN>*XREAL< J> F 620 

7 Y ( NN ) ■ YREAL I J ) F 630 

B IF (NDEBUG.EO.O) PRINT 11. I I 1 . X ( I I) . Y ( 1 I ) . I I ■ 1 .NP I ) F 640 

IF (NDEBUG.EO.O) PRINT 16. N.NE.NP1 F 630 

OYDXsDIF (N.NE.NPl .X.v> F 660 

GO TO 10 F 670 

9 DT0Xb(YREAL(NLINES)-yREAL(NLINES- 1 ) >/< XREAL <NL INES l-XHEAL (It. IMEStI F 680 

| ) ) F 690 

10 IF (NDEBUG.EO.O) PRINT 12. OYOX F 700 

RETURN F 710 

C F 720 

C F 730 

11 FORMAT I4H 1 I ■ 1 4.2X .6HX ( I I ) »E1 6. 0. 2X.6HY (II)*E16.B) F 740 

12 FORMAT (6H DY0X*EI6.B> F 730 

13 FORMAT (19H SUBROUTINE LGRANGE) F 760 

14 FORMAT I3H 1 » I 4 .2X . 3HNP* I 4 , 2X . 7HNL I NES- I 4 .2 X . 3MX0*E 1 6 .8 ) F 770 

15 F0RM4T (4H I I » I 4 . 2X . 1 OHXREAL < I I > *E 1 6. 8 . 2X . 1 OHYRE AL (1 1) *E 1 6 .8 ) F 780 

16 FORMAT (3H N- I 2 . 2X . 3HNE* 1 2 • 2X . 4MNP | * I 2/ I F 790 

END F 800- 

SUBROUTINE DIRCOS (I) G 10 

C G 20 

C COMPUTE DIRECTION COSINES OF R.ETA.TAU COORDINATES G 30 

C G AO 

COMMON F ( 3 > . DF (3) .FCI3I . DFC ( 3 ) • AB1 ( 3 » . AB2 ( 3 ) • A83 (31. ABA < 3 1 G 30 


COMMON FUN(2O.6).OFUN(20.6) «FUNC (20.6) «OFUNC <20.61 .01 (20«6) «82<20. G 60 
I 6 ) .03 <20 >6 > .04 120.6) .SBAR(20 ) • DSBDZ ( 20 ) .SBARPI20 ) « 0SB1 <20 ) <0502 (20 G 70 
2).DSb3(20).oSB 4I20) .XI (20) .XO (20 ) . YO (20 > . A1 <20 ) . A2 (20 1 • A3 <20 1 . A4 <2 G BO 
30 >.«5(20 ) . A6C20 ) • A7 (20 ) .AB (20) . AKBI20 ) .GX ( 20 > .GY ( 20 ) .GXXI 20 > . GYY < 2 G 90 
40XGXYI 20 > .ETA (20 ) .ETAS I 20 > ■ ET ASP I 20 ) .BET AO (20 I . RHO ( 20 ) , R ( 20 1 .P <20 G 100 
5) .0(20) .V 120) .W (20) «PP 1 20) .uP <20 ) .VP <20 ) % WP < 20 1 *XS 120 ) • YS <20 1 .GUDZ G II© 
6(2C) ,DPDZ (2C ) . DVDZ ( 20 ) »D*DZ<20 ) . AM ( 20 ) « S< 20 ) . ZETA1 *20 ) .ZETA2 (20) .Z G 120 
7ETA3 (20 > *ZETA4 (20 ) .Dul (20) .0U2I20) . DU3120 ) . DU4 (2o > »DWI <20 ) .DV2<20) G 1 30 
B . 0W 3 ( 20 ) . OV4 < 20 ) • OV 1 ( 20 )• DV2 < 20 ). DV3 ( 20 ). OVA ( 20 )» G 1 20 I • PS t D ( 20 >* DP G 1A0 


91 <20 ).0P2 (20) .DP3 (20 ) . DP4 ( 20 ) .DE0NS(20) .CR0SSMI20 ) «»HO!SEN(2o> G 130 

COMMON U1SEN(20 > .POROGAM(20 ) <G(20) .0P(20 ) .PSIS0<20 1 .BERNOUL (20) «XS G 160 
1BARI20) .YSBAR (20) .X0BARI20 ) . YOBARI20 ) .XBAR(20) . YBAR(20) G 170 

COMMON AAST.Bl 1 <B12.r»13. 021 .022. B23.NSPACE. PI .M.N. LI .T.THETAR.GAMM G 1B0 
1 A.DXI .CONI .CON2.STMACH.AB.A1 1 . A 1 2 . A 1 3 . A2 1 . A22 . A23 , A3 1 . A32 . A33 . ALPH G 190 
2AR.N1 .NDEBUG.H.HK, SIGMA, RAD. NF.NLINES.EPSIG.^RINT. SPACER. ULEE.UWI G 200 
3 ND«RhOLEE.RHOWJND»NEXTRAP.EPSJGOM.EPSINT.XJNJ .SJGNP1 G 2J0 


COMMON XP.XIP.PHIWR.BSBAR.OS.RS.XIBSBAR G 220 

COMMON /ERROR/ ER (12). ERR (12) »3LK (121 G 230 

COMMON VCC ( 20 ) .WCC < 20 ) « SBARhLD (20 > . XBHLD ( 20 1 • YBMLD (20 ) G 240 

COMMON CP ( 20 ) , XMACHB (20 ) » YMACM8 ( 20 ) .UC ( 20 ) » VC 1 20 ) » WC<20 1 * VX < 20 ) • VY G 230 
l (20) ,THETNOR(20 ) .PS1 nOR(20 ) .POPT 1 (20) .PT0PT1 ( 20 ).PT<20). POASTSG (20 G 260 
2 ) . POP INF ( 20 ) * XMACH < 20 ) • YMACH < 20 ) . CP SHOCK ( 20 ) • CPBOD Y < 20 ) C 270 

IF (NDEBUG.EO.O) PRINT 2 G 2B0 

IF (NDEBUG.EO.O) PRINT 1. I . ET A ( I ) . A l ( I ) . A2 ( 1 ) . A3 ( I ) . A4 ( I | . AS ( I > « A G 290 
1611 ).A7( I ),AB< I I.GXI I >,GY< 1 ) .XOC i ), YO( I ) G 300 

0U*N1 “CONI /SORT ( A 1 ( I ) ) G 310 

OuAN2»COn2/sqrt (A 2 ( 1 ) l G 320 

OuAN3»CON2/SORTCAl ( I ) ) G 330 

0UAN4*C0N1 /SORT < A2 ( 1 ) ) G 3A0 

OUAN5*l ./SORT (A l ( I >* a2< I ) ) G 350 

All-— XO( l >*OUANl+GX( I )*QUAN2 G 360 

A 1 2=— YO ( I ) *OUAN 1 +GY ( I ) *OUAN2 G 370 

4 1 3=— QU AN) — A4 < | )*QUAn2 G 380 

AZ1 =-QUAN5* (GY( I ) +Y0 ( 11*44 < I I I G 390 

A22«OUAN5*(GXC n + XO( T )*A4I 1 ) ) G 400 

A23-OUAN5*A7 C 1) G 4)0 

A31-XOI I )*OuAN3+GX< I )*0UAN4 G 420 

A32=vO(l >*0UAN3+GY( 1 )*0U4N4 G «30 

A33=OUAN3-44 ( I )*QUAN4 G 440 

IF (NDEBUG.EO.O) PRINT 1. I . 0UAN1 . 0UAN2 . 0UAN3 • 0UAN4 .OUAN5 . A I 1 . A 1 2 • G *50 
1 AI3.A21 .A22.A23.A3) .A32.A33 G460 

PM I R-A T AN2 ( G Y ( I ) . GX ( I ) > G 470 

S I NPM 1 R* S I N ( PH I R ) G 480 

COSPHlR=COS (PHIR) G 490 

Bll *A I 1 «C0SPH|R + A12*SINPH1R G 500 

B 1 2= A2 1 +C0SPH IR+A22*Sl NPH I R G 510 

B13=A31 *C0SPHIR+A32*S1NPHIR G 320 

B21--A1 1 *S 1 NPH | R+ A 1 2 *COSPH I R G330 

B22=-A2 1 *S I NPH t R + A22*C0SPH 1 R G 540 

B23- — 4 3 1 *S I NPM I R+ A32*COSPH 1 R G 350 

IF (NDEBUG.EO.O I PRINT ]. 1 . GY < I ) . GX ( 1 > . PH | R . S I NPM | R . COSPH! R . 01 1 .6 G560 

1 12.01 3.821 .022.023 G 570 

RETURN G 5B0 

C G 590 

C G 600 

1 FORMAT (3H I * 1 5/ ( 8E 16*8) ) G 610 

2 FORMAT (IBM SUBROUTINE DIRCOS/ I G 620 

END G 630- 

SUBROUT I NE SHOCK ( | ) H 1 0 

C H 20 


30 



APPENDIX B 


C COMPUTE FLO* QUANTITIES AT SHOCK H 30 

C H 40 

COMMON F<3> .DFCJ ) ,FC (3 1 .0FCI3) , AB1 <3 ) . AB2 (3) .AB3I3 > ,AB4(3 > H 50 

CONAON FUN(20.6),0FUN(20.6).FUNC(20.6».0FUNC(20.6>.B1 <20. 6 > • B2 < 20« M 60 
l6).B3<2O.6>.04<2o.6).S0AH<2O).OSeoZ(2O>,S8ARP(2O) .OSB1 <20).DSB2 (20 H 70 
2 I .OSB3 (20) .OS04 (20> .XI 1 20 1 . XO < 20 ) . VO <20 ) . A 1 ( 20 ) . A2 <20 ) . A3 (20 » . A4 (2 H 80 
30).A3<20)«A6*20).A7( 20 ) . A8 ( 20 ) . AK0 ( 20 > • GXI20 ) . GY < 20 ) . GXX < 20 > .GYY <2 H 90 
40).GXYI20).eTAf20).6TAS«20).ETASP(20).BETAD<20>* R HO(20>.n(20».P(20 H 1 00 
5 1 .UCjO > . v < 20 > . Y < go ) . PP ( 20 ) .UPl20).VPt20).WP(20)iXS(20).YS<20).DUDZ H 1 10 
6(20), DPOZ ( 20 1 . DVOZ ( 20 ) . 0*0Z « 20 ) . AM < 20 > . S ( 20 > » ZETA l ( 20 ) . ZET A2 ( 20 > . Z H 120 
7ETA3(20) ,ZETA4(2o I.OUl < 20 ) *0U2 ( 20 ) . DU3 ( 20 I .0U4 (20) .0*1 (20). 0*2(20) H 130 
8.0*3(20 I * D*4 (20 ) ,0V! (20 1 . DV2 (20 ) .0V3 (20 ) . DV* ( 20 ) . G ( 20 ) .PS ID ( 20) .OP H 140 


91 (20 ) . 0 P 2 C 201 .OP3(20 ).DP4 (20 ).0eQNS<20) .CR0SSK(20) .PMOISENC20) H 150 

COMMON UISEN (20 I .POROGAM (20 ) *0(20 ) .QP(20 ) .PS ISO(20 ) .BE«HOUL(20) .XS H 160 
I BAR ( 20 ) . YS0AR (20 ) .XOBAR ( 20 ) • YOBAR (20 ) .XBAR (20 ) . YBAR(20 ) H 170 

COMMON AAST.B1I ,012.013. B2I. 022. 023. NSPACE, p|. X.N, LI. T.THETAR.GAAW H 180 
1A.OX1 .CONI .C0N2.STMACH.AB.A1 I .AI2.A13.A21 .A22.A23.A3I .A32.A33.ALPH H 190 
2AR.NI .NOEBUG.M.HK. SIGMA. RAO. Np.NLINES.EPSlG.NPRINT. SPACER. ULEE.UWI H 200 
3 ND«RhOLEE.RhO*IND.NEXTRAP.EPSiGOM.EPSINT.XIN1 .SIGNP1 M 210 

COMMON XP.XIP.PHIVR.bSBAR.BS.RS.XIBSBAR H 220 

COMMON /ERROR/ tR(12).ERR(12).0LK(12) N 230 

COMMON VCC(20 } . *CC ( 20 i . SBARMLO( 20 ) • X8HLD(20 1 * Y0MLO < 20 ) M 240 

COMMON CP ( 20 ) <XM ACHB (20 ) • YMACMB < 20 > ,UC < 20 l .VC 1 20 ) • *C ( 20 ) . VX ( 20 ) . VY M 250 
1 (20) .THETNOH (20 ) . PS 1 NOR (20 I.POPTI ( 20 ) .PTOPT 1 ( 20 ) . PT (20 ) .POASTSQ (20 H 260 
2 ) . POP INF (20 ) .XMACH( 201* YMACH ( 20 ) • CPSHOCK ( 20 1 • CP0OOY (20 ) H 270 

IF (NOEBUG.EO.O ) PRINT 3 H 280 

C H 290 

C STREAM VELOCITY COMPONENTS H 300 

C M 310 

VETA-At2«SIN(ALK>HAR)+A13*C0S(ALPHAR> H 320 

VXI«A22*SIN(ALPHaR)+a23*C0S(AuPHAR) M 330 

VR“ *32*5 INI ALPH4R )+A33*COS ( ALPMAR | H 340 

CON3»SIN(SIGNA ) M 350 

CONA*=COS<StGMA) K 360 

C H 370 

C SHOCK FUNCTIONS H 380 

C H 390 

S|NBeTA»-(VETA*C0N4+VXI*C0N3» H «00 

BCTAR«AS INIS I NSETA ) H 410 

BE TAD ( I ) °BETAP*QaD M 420 

RHO( I )»( <GAMMA*1 # )#STMACH**2*SIN0ETA**2I/(2.4(GAMMA-|.)»STMACH**2* M 430 
1SINBETA*42) H 440 

P( I )- t ./(GAMMA* (GAMMA* I.1 *STMaCH**2)«(2.*GAMMA*STMACH**2*SINBETA** H 450 
12- (GAMMA- 1. >1 H 460 


COMMON FUNI20.6) .0FUNI20.6) *FUNC (20.6) >OFuNC(20.6 > .01 (20.6 >.BZ(20« l 70 

1 6 > >B3 (20.6) . B4 ( 20 .6 ) .SBAR ( 20 ) . DSBD2 ( 20 ) . SbaRP ( 20 ) . DSB 1 (20) .DSB2I20 1 80 

2 > «CSs3 ( 20 ) . DSB4 (20) .XI (20) .XOI20 ) • VO (20 l . A1 < 20 1 . A2 I 20 ) « A3 ( 20 ) . A4 (2 ) 90 

30 > .A5(20 ). A6 (20 ).A7<zO).A8(20>.AKB(20) . GX ( 20 > »GY (20 ) . GXX ( 20 ) . GYV ( 2 1 100 

40) .GXY(20).ETA(20).ETAS<20 ).ETASP(2O).0ETAO(2O).RHO(2O) .R(2o).P<20 I 110 
5) .U(20) . V(20 > .* (20 ) .PP(20 ) >UP(20 ) . VP(20 >« *P<20 ) *XS( 20 ) .YS(20) .OUOZ I 120 
6(20) .DPOZ (20 ) «DVDZ(20> .D*DZ(20 ) . AMI 20 ) «S( 20 > • Z£Ta| ( 20 ) .ZETA2 (20 ) >Z 1 130 
7ETA3 (20) .ZETA4 (20 > .Du) (20 ) . DU2I20 ) . DU3I20 ) .004(20 ) .0*1 (20) .0*2(20 ) I 140 
8.DW3 (20 > .0*4 (20 ) «DVI (20) . DV2 (20 ) .DV3I20 ) . 0V4 ( 20 ) «G( 20 ) .PS 10(20) .DP I 1 50 


91 (20 ).QP2 (20 ) .0P3 120 ) . 0P4 (20 > .0EQNSI20) .CROSSM(20 I .RH0ISENI20 ) I 1 60 

COMMON UISEN(20).POR0GAM(2O) .Q<20).QP(2O) .PSISOI20) .0ERNOU-(2O) .XS 1 170 

1BARI20) .YSBAR(20 ) .X0BARI20 ). YOBAR (20) .XBAR(20 ).YBAR(20 ) I 180 

COMMON AAST.3I I .BI 2.01 3.B2I . B22.S23.NSPACe.PI .M.N.LI . T.THETAR.GAMM | 190 
1 A, 0X1. CONI .C0N2.STMACH.AB.A1 I . A I 2 . A l 3 . A2I .a22.A23.A3I , A32 . A33 . ALPM | 200 
2 AR «N ] .NDEBUG.H.*m:.SIGMA. RAO. NF. NL INES.EPS 1G.NPR! NT. SPACER. ULEE.UW I I 210 
3ND> RhOL EE. RhO* I ND.NE xTRAP.EPS I GOM, EPS I NT, X1NI .SIGNPI I 220 

COMMON XP.X IP.PH1VQ.0SBAP.BS.RS. X1BS0AP I 230 

COMMON /ERROR/ E«( 12) .ERR( 12).8LK( 12) I 240 

COMMON VCC 120). *CC ( 20 ) * SBARHLO ( 20 ) . XBHLD ( 20 ) • Y0MLD ( 20 ) l 250 

COMMON CP ( 20 f » XMACHB (20 ) . YMACHB ( 20 ) .UC I 20 ) , VC (20 ) » VC ( 20 ) . VX (20 ) • VY | 260 

1 (20> .THETNOPIZO ) .PS I NOR ( 2JJ ) t POPT 1 (20 ) .PTOPT I (201 .PT (20 ) .POASTSQ (20 1 270 

2) .POPINF (20 ) .XMACM(20 > .YMACH (20) .CPSHOCK! 20) .CPBODY (20 > 1 280 

COMMON /BLOCK 1 / I STL .NCYCLE . NCOUNT 1 290 

COMMON /BLOCK6/ NEGP I 300 

DIMENSION XQEAL ( 20 ) . YREAL ( 20 ) . X(20)> Y(20> I 310 

L I M I T*N 1 320 

IF (M.E0.3.0R.M.E0.4.0R.M.E0.5) LIMIT-N+1 1 330 

NL 1NMP1 -NL INES* 1 1 340 

JF (vDEBUG.EO.O ) PRINT 6 1 350 

IF (M.NE.O) GO TO I 1 360 

ETASPCI1-0.0 1 370 

UP(| >-0.0 I 380 

PP f 1 >-0.0 J 390 

VP <t 1*0.0 l 4QO 

VP(| )-0.O I 410 

SBAPP( I )— 0.0 I 420 

60 TO 5 I 430 

1 DO 4 I -I .LIMIT I 440 

DO 3 I STL-2. NF ! 450 

DO 2 IX-1. LIMIT 1 460 

YREAL (IX ) -FUN (IX.ISTL) I 470 

2 CONTINUE 1 480 

CALL L GRANGE (M . I .NP .NL ! NES . NL I NEP 1 .NOEBUG .X I ( I I , X 1 . YREAL . X . Y .DYDX I 490 

1 ) T 500 


UN-S INBETA M 470 

UT— VETA*C0N3*VXI*C0N4 H 480 

UID-VR/AAST M 490 

IF (ABSIRMOI I ) I.GE.l .E-10) GO TO 1 H 500 

PRINT 4. £RR(1 1. 1 .ALPHAR.A12. A 1 3 , A22 . A23 . A32 . A33 . VET A , VX 1 . VR . SIGMA H 510 
I .CON3.CON4.SINBETA.BETAR.8ETADU ).RHO( I ).P( I ) .VJN.uT.Udl . RHO ( 1 ) H 520 
STOP H 530 

1 V( M--1./A4ST* OjN*CON4/«HO< 1 )>vJT*CON3> H540 

«( D--1 ./AAST* <UN*COn3/RHO( 1 )-UT*C0N4 ) H 550 

SII »-ALOG(P( I )*6AMMA*STMACH**2/RHO( l)*4GAMMA) H 560 

SBAR ( I )-S( 11 M 570 

M 580 

SHOCK COOROl NATEs H 590 C 

H 600 C 

X-A31 H 610 

Y-*32 H 620 

Z-A33 H 630 

IF (ABS(Z).GT.I .E-IO) GO TO 2 H 640 

PRINT 4. ERR (2 )»J .V( D.WC I ). ETA II), All .AI2.A13.A2t , A22. A23.A3I . A32 H 650 
1 . A33.XI (1 ).X.Y.Z M 660 C 

STOP h 670 C 

2 XS(I)-X/Z H 680 C 

Y5 < I )«Y/Z „ 690 

PSISOI I)*ATAN2(VS( J ) ,XSU ) )*R*D H 700 

XSBARI I )-XS( I 1/40 M 710 

YSBARC I )«YS( I )/4B M 720 

XOOARI I I-XOI I )/40 H 730 

YOSARf I )-Y0( I )/AB H 740 

IF (NDEBUG.EQ.O) PRINT 4. BLK ( 1 ) . | , ALPHAR , A 1 I .A12.A13. A2 1 . A22 . A23 . H 750 
IA3I .A32.A33.xi ( J >, SIGMA. VETA.VXI . VR .C0N3. COM4 . S INBETA .BETAR.BETAD ( H 760 
21 ) .RHO! I >.P( I ) .UN.UT.UI I ).V( I ).«( | ) .X.Y.Z.XS ( ll.YSI IliSIl I .SBAR< I ) N 770 

3.XSBARI l ).YSBAR( I |.XD8AR( I ) . VOBAR( I ) H 780 

RETURN h 790 

H BOO 
M 810 

3 FORMAT (17M SUBROUTINE SMOCK) H 820 

4 FORMAT I 1 XI A6 . I 5/ ( BE | 6 .8 ) 1 M 830 

END H 840- 

SUBROUTINE DERIV2 (DS.NP) I 10 

I 20 

executive subroutine to compute derivatives for integration of i 30 

EQUATIONS | 40 

I 50 

COMMON F(3).DF(3) .FC(3'».DFC(3).A01 (3)«AB2(3).AB3(3) .A04(3> | 60 


IF ( I STL.EO .2 > UP ( 1 ) -DYDX | 510 

IF C I STL.EO. 3 ) PP ( I ) -DYDX I 520 

IF (ISTL.EO.4) VP1II-0YDX I 530 

IF (ISTL.E0.5) VPIII-OYDX I 540 

IF ( | STL .EQ.6 ) SBARP I I l-OYOX I 550 

3 CONTINUE I 560 

4 CONTINUE I 570 

1 STL-1 I 580 

5 IF (NDEBUG.EQ.O) PRINT 7. ( 1 .lA» ( I I . PP ( I ) . VP( 1 ) ,*P ( I ) .SBARP ( I ) . I - I . I 590 

ILIM1T) I 600 

CALL EONS (OS) l 610 

RETURN I 620 

I 630 
I 640 

6 FORMAT (IBM SUBROUTINE DERIV2) I 650 

7 FORMAT (3H I-I4.2X.6HUPI 1 1-EI6.8.2X.6HPPI | |-E16.B.2X.6HVP( I I-EI6.8 I 660 

I.2X.6H*P(! )-EI6.8.2X.9HSBARPII I-E16.8) I 670 

END I 680- 

SuBROUT INE EONS (OZETA) * “ * ' * * J lO 

J 20 

COMPUTE ZETA DERIVATIVES J 30 

J 40 

COMMON FI3).DF(3).FC(3).DFC(3).ABI (3). AB2 ( 3 ) • AB3 ( 3 > . AB4 ( 3 1 J 50 

COMMON FUNI20.6) .OFUN(20< 6) >FUNC (20.6) .OFunC (20.6) >01 <20.61.82(20. J 60 


16) * 83(20. 6>.B4 120.6) . SBAR ( 20 ) • DSBDZ ( 20 ) . SBARP < 20 ) . DSB I (20) .DSB2I20 J 70 
2 ) .DS03I2O) . QSB4 <Z0i . x 1 ( 20 ) • XO 120 ) . YO (20 ) . A 1 I 20 ) . A2 (20 ) . A3 (20 ) »A4 <2 J 80 
30 ) ■ A3 ( 20 > . A6 ( 20 ) • A7 ( 20 ) . A8 ( 20 ) • AKB (20) .GX (20 )«GY <20 1 . GXX < 20 > iGYY <2 J 90 
4 0 ) «GXY ( 20 ) .ETA (20 ) .ETAS (20 ) .ETASP(2o > .BET AD (20 ) .RHO <20 ) .R <20 ) .P (20 J 100 
5 ) .U<20) .V(20 ) .*(20 ) .pP(20) .UP(20) . VP (20) . WPI20) .XS(20 )« YS(20 ) .OUOZ J I tO 
6(20) .DPOZ (20 ) . OVDZ I 20 ) .DVDZ (20 I . AM ( 20 ) . S ( 20 ) «ZETA1 120 ) .ZETA2 (20 ) .Z J I 20 
7ETA3 ( 20 ) .ZET A 4 (20 ) . DUl <20 ) . DU2<20 > ,DU3 (20 ) .0U«(2OI .0*1(20) .0*2(20) J 130 
8.D*3(20 ». D*4 <20 ) .0V1 (20 ) «DV2 (20 ) . DV3 <20 > • DV* <20 ) . G (20 ) .PS ID< 20 ) .OP J 140 


91 (20>.OP2(2O).DP3<20>.OP4(20 ).0€ONS < 20 ) .CROSSMI 201 »RHOI SEN<20 1 J 130 

COMMON U 1 SEN ( 20 ) « POROG AM ( 20 ) .0(20) . QP ( 20 ) . PS I SO <20 ) .OERNOUL < 20 ) • XS u 160 
10ARI2O > .YSBAR(20 ) .X0B*R(20 > • YOBAR(2o ) .XBAR{20> . YOAR <20 ) J 170 

COMMON AAST. B1 1 .B12. 013. B21 .B22.023.NSPACE.PI *".N. LI .T.THETAR.GAMM J I 80 
1A.CX1 .CONI .CON2.5TMACH.AB.A1 1 . A 1 2 . A 1 3 . A2 I .A22.A23.A31 . A32 . A33 . ALPH J 190 
2 AR . N ) . NDEBUG. H. HK. S 1 GMA. RAD. NF.NL 1NES.EPS I C.^R I NT. SPACER. VA-EE.U* I J 200 
3ND.RHOLEE.RHO* 1ND. NExTRAP.EPSlGOM.EPS! NT. X1N1 .SIGNPl J 210 

COMMON XP.X1P.PHIVR.0SBAR.9S.RS.XIBSBAR J 220 

COMMON /ERROR/ ER ( 12 ) «ERR( 12 ).BLK ( 12 ) J 230 

COMMON VCC <20 ) . VCC ( 20 ) . SBARHLD ( 20 ) . XBHLO < 20 ) . Y8HL0 1 20 I J 240 

COMMON CPI20 ) .XMACHB (20) .YMACHBI20 | .UC <20 ) ,vc<20 1 .*C(20) • VXI20) .VY J 230 
1 ( 20 ) . THEY NOR ( 20 ) . PS I NOR ( 20 ) .POPT 1(20) .PTOPT 1 <20 ) .PT (20 ) .POASTSQ (20 J 260 


31 


APPENDIX B 


2 > .POP |NF (20 > • xmach < 20 » , Y MACH <20 > .CPSHOCK ( 20 ) .CPBODY (20 1 J 270 

COMMON /BL0CK6/ NEGP J 2B0 

IF (NbEBUG.EO.O ) PRINT 12 J 290 

C J 300 

C GEOMETRIC PARAMETERS J 310 

C J 320 

NEXTRAP=0 J 330 

ex«i . j 33i 

IF (M.EO.S) BX»BSBAP/A0 J 332 

I 00 I 1 1*1 .N J 340 

ANUM=2.*fun( ! .1 )#ETASC 1 1 J 350 

SORTi ■SORTtO < I |**2*4.*FUN< J . I 1* ( I . -Q ( I > »J J 360 

IF * O < I I • GE • 0 • 0 I ETA < I 1»ANUM/(0U ) +SORT1 ) J 370 

IF (Q( I I.LT.0.0 > ETA < I >«ANUM/<0< 1 ) -SORT 1 ) J 380 


IF ( NbEBUG.EO.O ) PRINT 13. BLK < I ) • I • ETAS I It » ET ASP I I 1 ,ET A ( I » . ANUM . S J 390 
1 0RT1 . Fun < I • 1 ) .FUN ( I <2 > ,FUN< I .3 1 .FUNC I *4 ) .FUN I I .5 > .0 < 1 ) .QP < 1 ) . AKBI I J 400 
2 ) . GAMMA. STMACH,Ae.PP< I I .UP< I > »VP< I) . WP< | | .ZETA1 ( I >.2ETA2< 1 ) .ZETA3( J 4J0 
3! I * Z E T A 4 ( I I . Dui ( ! I.0u2< I l .DU3< I l.DU4< I I .DPI I I I .OP2I I >.DP3< I ) .0P4 ( 1 J 420 
4 ) . OV | ( | | .DV2< I ) • DV3 ( | I • 0V4 < 11.0*1(11 *0*2 ( I I . D»3< 1 1 .0*4 I I ) .FUNC 1 .61 J 430 


FI B*0 < I J +2 , * ( l . -Q Hi )*ET AIM /£TAS< I 1 J 440 

G1B=ETA( M* <0P< I )*< l ,-ETA< I 1/ETASC I ll-ETASPI I l*FIB/ETAS< I I > J 450 

CONI *StN(ETA< | )> J 460 

C0N2>C0S<ETA I l| I J 470 

M«CON2-AKB< I l*CONI J 480 

HKaCONl ♦AKB( I )*C0N2 J 490 

IF IM.EO.5. ANO.BX.LT. XOBARC2 ) | M*C0N2 J 491 

IF I M.EO.5 . ANO.BX *LT • XOB AR ( 2 i 1 MK.C0N1 J 492 

IF (A5S<H).GE.1 .OE-07) GO TO 2 J 500 

PRINT 13. ERRI | I . I .FUN( I •] ) .ETAS< | I.ETAU I.CON] .CON2.H.HK J 510 

STOP 1201 •> 520 

2 TANSIGa-ETASPl l l/H J 530 

SIGMA* ATANITANSIGl J 540 

C J 550 

C FUNCTIONS AND PARAMETERS J 560 

C J 570 

BUSO*FUNC I .2)*»24FUN( 1 .4 >**2*FUN< 1 ,51**2 J 580 

DENOM»EXP<FUN< f .6)1 J 590 

IF < NDEBUG.EQ.O 1 PRINT 13. BLK 12 | . J .CONI . C0N2 . AKB ( I I .H.HK .ET ASP < 1 I J 600 

1 .TANS I G.s I GMA.BUSO. GAMMA. STMACM.OENOM. fi e.GI B J 610 

IF ( ABS<0ENOM).GE.l .E-07. ANO.FUNI i ,3 | .GT.0.0 > GO TO 3 J 620 

PRINT 13. ERR<2 1 . I . GAMMA . STMACH. TANS 1 G.Sl GMA . DUSQ . DENOM , FUN < | .1 >.F J630 

1UNII ,2| .FUNt I .3) .FUN< I ,4 ) .FUNC I .5| J 640 

NEGPsO J 650 

PRINT 14 J 660 


7 IF (NDEBUG.EQ.O > PRINT 13, BLK <61.1. OFUN 11,1 ) . OFUN ( 1.2). OPUN (1.3). 
IDFUNC 1.4 I . OFUN ( 1.5) .f>FL»N| 1.6) 

GO TO 1 J 
C 

C EXTRAPOLATION OF VELOCITIES AND PRESSURE 

C 

8 NEXTRAPa 1 
00 9 11‘liN 

FUN ( I I . I ) aFUNC ( I I « 1 ) 

FUN C f I . 2 I aFUNC < I I • 2 > 

FUN (|l.3) aFUNC I 1 1 .31 
FUN (11.41 aFUNC (11.4) 

FUN ( | I • 5 ) aFUNC ( I I • 5 J 
FUN ( I I . 6 ) a FUNC ( I I • 6 ) 

9 CONTINUE 
GO TO I 

10 DENOM I * (ZETA4 C I >-ZET*3( I ) )*<ZETA4 ( | )-ZETA2( I > ) 

DENOMZa ( ZETA3 ( I >-ZETA4( I ) )* (ZETA3 ( | »-ZETA2( I > > 

OENOM3* (ZETA2( I J-ZETA4 ( I > j* (ZETA2 ( I 1-ZETA3C I ) ) 

FF 1 *rUN( I . I >**3/3. 

FF2=FUN( I . 1 )*«2/2. 

TERM] 1 =FUN ( 1.1] »ZETA2 ( I ) *ZET A3 ( I > 

TERM32 ■ F UN ( I . I )*ZETA4 ( I )*ZETA2( 1 > 

TEPM]3aFUN( I . 1 )*ZETA4( I )*ZETA3( 1 ) 

FAC1 a (FF1 -FF2* (ZET A3 ( I )*ZETA2< I ) J.TERM31 1/DENOM1 
FAC2= CFFI -FF2* (ZETA4 ( I > *ZETA2 ( 1 ) > +TERM32 ) /DEN0M2 
FAC3= (FF1 — FF 2* (ZETA4 ( I )*ZETA3< 1 > 1 .TERM 3 3 ) /OENOM3 
FUN ( I .2 ) «FUN ( I ,2 )-FAcl »DU4 ( 1 )-FAC2*DU3( I >-FAC3*0U2< I ) 

FUNC 1 . 3 ) aFUNC 1 .3 >-FAc 1 *0P4 ( I )-FAC2*DP3( I )-FAC3*DP2C 1 ) 

FUNI 1 .4 )=FUN( 1 .4 )-FACl*DV4 ( 1 )-FAC2*DV3( 1 )-FfcC3*OV2( I > 

FUN ( I . 5 ) »FUN( 1,5) -FAcl *D*4 < 1 )-FAC2*D*3C 1 )-FAC3*D*2< I } 

FUN ( | .6 >«FUN( I .61 -FACI *DSB4 ( I >-FAC2*DS03( I |-FAC3*0SB2 ( I > 

FUNC | . 1 1*0.0 

IF (NDEBUG.EQ.O) PRINT 13. BLK ( 9 ) • I , FUN (1.2). FUN (1.3). FUN (1,4), FUN 
1(1.5) . FUN ( 1.6) 

11 CONTINUE 
RETURN 


12 FORMAT (J6M SUBROUTINE EONS) 

13 FORMAT (1XIA6. I5/(BE16.B ) > 

|4 FORMAT I/V2SH OUCH - NEGATIVE PRESSURE//) 
END 

SUBROUTINE RUNKUT2 ( nS . NP > 


J 1 1 1 0 
Jl 120 
J 1 1 30 
Jl 140 
Jl 150 
Jl 1 60 
Jl 170 
Jl 1B0 
Jl 190 
J 1200 
J1210 
J1Z20 
J1230 
J 1 240 
J 1 250 
J 1 260 
J 1 270 
J 1 280 
J 1 290 
J 1 300 
J 1 3| 0 
J 1 320 
J 1 330 
J 1 340 
J l 350 
J 1 360 
J 1 370 
J I 360 
J I 390 
J1400 
J ) 4 1 0 
J 1 420 
J1430 
J I 440 
J 1 450 
J 1 460 
J I 470 
J 1 480 
J 1 490 
J 1 500 
J 151 0 
J 1 520 
J 1 530- 
K 10 


RETURN J 670 

3 RHOI I )« (GAMMA*STNACH**2*FUNC C.3|/DENOM|**n ./GAMMA) J 680 

DENOM. j .*2. /( (GAMMA-1 . )*STMACH**2) J 690 

BERNOUL ( I ) a | .-(2.*GAMMA*FUN( I .3 1/ (HMO( 1 >* (GAMMA -1 . ) > +BUSO*AAST**2 ) J 700 

1/OENOM J 710 

IF CRHOC1 J.GE.l.E-lO) GO TO 4 J 720 

PRINT 13. ERR (3 I . I . BUSO. DENOM. RHO( | ) .FUN{ I ,3 1 J 730 

STOP 1203 J 740 

4 ASO»GAMMA*FUN( 1 .3)/RhO(! I J 750 

IF (NDEBUG.EQ.O ) PRINT 13. 8LK ( 3 ) , I ,RH0( I I . ASO J 760 

IF (ASQ.GT.I .E-20) GO TO 5 J 770 

PRINT 13, E«R(4 ) . I .FuN< I . 1 l.FUN( | ,3) ,RNO( n.BUSO. ASQ J 780 

STOP 1204 J 790 

5 AMI 1 )aSORT( AAST**2*BuSO/ASO> J 800 

CROSSMC I )aSORT ( AAST**2* ( (BUSO-FUN ( I ,2 )**2 1/AS0I 1 J 810 

POROGAMC 1 )*FUN( 1 . 31/RHOI I )*«GAMMA J 820 

S< 1 I BALOG I FUN ( | .3 )*GAMMA*STMACH**2/RM0( I )»*GAMMA ) J 630 

FF.ETAS ( I )* (H* (FUNI 1 ,4 )*«2+FUN( I . 5 )**2 )-FUN( I .51*UP ( I I I J B40 

FI BETAS ( I )* (FUN ( I .5 J*PP( I >/RHOI I l/ASO+VP ( I )+2,*H*FUN( I .2 )-HK»FUN< | J 850 

1.4)1 J 860 

F2«ET AS ( I )* (FUN ( I ,5 )*VP( J )+H*FUN < I ,2 ) *FuN ( 1 , 4 )*HK*FUN( | « 5 )**2 > J 870 

F3«ETAS ( I ) * < PP ( 1 I/(RhO( I | *AAST** 2 )+FUNl I ,5)**P< | )+H*FUN( I ,2)*FUN(I J B80 

t .5 )-HK*FUN( 1 .4 ) *FUN( I .5 ) ) J 890 

G( I )bh*FUN( 1 .4 )*F1B+FUN( I .5)*GIB J 900 

DEONSC I ) a (H*F1B/AAST ]**2* (G18/AAST )**2-G( I >**2/ASO J 910 

IF INDEBUG. EO.O ) PRINT 13. BLK ( 4 I . I , AM ( \ j .cROSSM ( I ) .POROGAM 1 | > , s ( I J 920 
1 ) .UP( I I .PP ( I ) . VP ( I I .*P( 1 1 .SB ARP ( I 1 , FF « F 1 . F2 . F3 « OUAN .F IB.GlB.GCI ) .O J 930 
HEQNS ( I ) J 940 

IF (NEXTRAP.EO. 1 ) GO TO 10 J 950 

IF « (G( I l.GT .EPSIG.OR.OEONS Cl 1 »LT .gPS 1G » . AND.FUN ( I . 1 >.GE. .BO ) GO T J 960 
IO 6 J 970 

IF ( ABSIGC 1 ) I.LT.EPSIG.OR.GI I 1.GT.0* .OR.DEONSI 1 1.LT.0. > GO TO 8 J 980 

C J 990 

C ZETA DERIVATIVES JlOOO 

C JIOIO 

6 OFUN (1,2) «FF /G ( I ) J1020 

OFUN ( I , 3 ) aRHO ( 1 >/OEONS< I | * (F 1 *G ( I ) — F2*M*F 1 B— F3*G1 B ) J1030 

DFUN ( | ,4 ) a - J ,/G ( I )* (H«F1B*0FUN< I , 3 ) / ( AAST**2 *RmO ( I ) I+F2 1 JI040 

DFUNI 1 ,5)a-l ,/G« 1 )* ( G1 B*DFUN( I . 31/ ( AAST**2*RH0 ( I 1 )*F3 ) JI050 

OFUN ( l ,6) * -ETAS ( I )*FuN( | .5 )*SBARP ( | )/G( I ) J1060 

IF IFUNll.l (.GT..051 GO TO 7 J1O70 

IF tt.EQ.l) GO TO 7 J 1 080 

IF (M.EO.2. AND. I .EQ.N) GO TO 7 J1090 

IF tOFUNf f .6 I.GT.O. ) GO TO 9 JIIOO 


C K 20 

C INTEGRATION OF EQUATIONS K 30 

C K 40 

COMMON F(3>.0F(3l.FC(3).0FC(3),ABl ( 3 > . AB2 ( 3 1 . AB3 ( 3 ) , AB4 < 3 1 K 50 

COMMON FUNC20 .6 ) .OFUN 120.6 ) .FUNC (20.6 ) .DFUNC <20'6 ) «B1 (20. 6) .B2C20. K 60 

16), 63(20.6 >« 84(20.6) . SBAR ( 20 ) . OSBDZ ( 20 1 » SB ARP ( 20 ) . DSB l (20).0SB2(20 K 70 

2 > ,DSb 3 < 20 ) • DSB4 1 20 ) . x I ( 20 ) . XO (20 > . vO (20 ) . A 1 ( 20 ) « A2 (20 ) . A3 ( 20 ) . A4 < 2 K 80 

30) ,A5(20).A6(20 ). *7(20 >. AB(20) . AK0(2O ).GX(20> . 67 1 20 ) . GXX ( 20 ) « GY Y <2 < 90 

40).GXT(20> .ETA(20).ETAS(20 ).ETASP(20 > . BET AO ( 20 ) « RMO (20 > . R (20 1 .P (20 K 100 
5 > .U ( 2O ) . v ( 20 ) » V (20 ) • PP ( 20 ) • UP ( 20 > , vP ( 20 > • WP <20 ) • XS ( 20 ) ♦ YS (20 1 .OUDZ K 1 1 0 
6<2O).DPOZ(20) .OVDZ(20>,DXDZ(20 I . AM 1 20 > . S < 20 I . 2£TA l (20 ) .ZETA2 (20 ) .Z K 120 
7ETA3 (20).ZETA4( 20 ) . Dul (20),OU2(20) • DU3 ( 20 ) ,DU4 <20 ) • D*l (20).0w2(20> K 130 
8. DF3 (20). 0*4(20 l.OVl (20) . 0V2 ( 20 ) >DV3(20 ) . 0V4 ( 20 ) . C ( 20 ) .PS 1 0 ( 20 ) .OP K I 40 


9) (20>.DP2(20) .DP3I20 j . DP4 ( 20 ) . DEOnS < 20 ) .CROSSM ( 20 ) ,RH0lSEN(20) K 150 

COMMON U1SEN(20) .POR0GAM(20) .0(20 ).0P(20) .PSIS0I20 I .BERNOUL(20) .XS K 160 
1BARC20) .YS8AP(20> .XO0AR(2O I . YOBAR(20) .XBAR<20 ) .VBAP(20) K 170 

COMMON AAST.B1 1 . B I 2 • B 1 3 . 82 1 . B22 • 32 3 . NSP ACE . P ] .M.N.LI . T . THgTAR.GAMM K ISO 

1 A.OXI .CON) .CON2.STMACM.A0. AI I , A12. A13.A2Z , A22. A23.A31 .A32.A33.ALPH K 190 

2 AR » N 1 .NDEBUG.M.HK.SIGMA.RA0.NF.NL1NES.EPS1G.NPR1NT . SPACER. ULEE.UW I K 200 

3ND.Rh0LEE,RM0WIND.NEXTRAP,FPSIG0M, E PsinT.XINI .SIGNPI K 2 1 0 

COMMON XP.XIP.PHIVR.BSBAR.BS.RS.XI0SBAR K 220 

COMMON /ERROR/ ER ( 1 2 ) • ERR (12). BLK < l 2 > K 230 

COMMON VCC (20 ) .WCC (20) .SeARHLDI 20 ) .XBMLOI20 ) . Y0HLD (20 I K 240 

COMMON CP(20 > . XMACH8 (20) . YMACMB (20 I .UC <20 I . VC <20 ] . «C (20 ) « VX(20) .VY K 250 
1 (20 > • T HE T NOR (20 ) .PS! nOR (20 ) .PORT 1(20) .PTOPT I <20 ) « PT (20) .POASTSQ (20 K 260 
2 ) .POPINF (20 > .XMACH(20 > . YMACH (20 I .CPSHOCK ( 20 ) .CPBOOY (20) < 270 

COMMON /BL0CK6/ NEGP K 200 

NDEBuG* 1 K 290 

IF inDEBUG. NE. 0 > GO TO 2 K 300 

PRINT 27 K 310 

DO I 1 =1 .N < 320 

1 PRINT 28. I . (NXF.FUN ( I ,NXF ) . OFUN ( I ,NXF | ,NXFa I ,NF ) K 330 

2 TESTmAX».5*EPS|NT 1C 340 

DSM1n=.1 K 350 

OSMAxa.i X 360 

C K 370 

C (DSMIN.EO.DSMAX > GIVES A FIXED INTEGRATION STEP K 380 

C ( DSM | N . NE « DSMAX ) GIVES A VARIABLE INTEGRATION STEP K 390 

C K 400 

IF (DSM1N. NE. DSMAX ) GO TO 3 K 410 

DS m — DSMAX K 420 

IF (FUNI I . 1 l-.i <GT.l .E-07) DS»-.l K 430 

IF (FUNC 1 .1 l-.l »LE. I .E-07) OS = -.05 X 440 

IF (FUN(I . I J-.05.LE. I .£-071 OS*-. 025 K 450 
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IF (FUN It .1 >-.025. US*! .E-07) DS*-,012S 

3 IF (FUN (lil) .NE •1*0) GO TO 3 

00 4 I-l.N 

4 DFUNf'l.l >«DS 
C 

c SET EXTRAPOLATION PARAMETERS 

C 

9 DO 6 I ■ 1 * N 

IF (ZETA4< I )-FUN( I.l ) *LT. SPACER .AND. FUN ( I .1 I.LT.l. ) GO TO 6 
IF <G1 t WGT.EPSIG.OR.OEQNSt t i.LT.EPSIG) GO To 6 
ZETAl ( t >*ZETA2 ( I I 
ZCTA2 ( I )*ZETA3( 1 » 

ZeTA3(I)-ZETA4II) 

ZETA4< I (•PUNll.l J 
DU1 ( I >-DU2t I J 
DU2( I >*0U3< I » 

OU3 ( I J»0U4( II 
DU4< I 1 »OFUN< 1*2) 

DPI ( t >*0P2< I ) 

0P2< I I*0P3< 1 » 

0»3( I )*0P4 ( I ) 

DBA ( I ) -OF UN ( I ,3) 

DV1 ( I >*DV2< t ) 

OV2<I J-0V3III 
OV3< | 1-DV4 C I ) 

OVA < | ) -DFUN ( I *4) 

0*1 m-DV211 > 

0W2< I >*DV3< I > 

DV3 ( 1 >-DV4< I I 

0V4C I ) “OF UN ( I ,51 
DS81 (I >-DSB2< 1 ) 

DSB2 (1 I-DSB3I I > 

DSB3 ( I >»OSB4< I I 
DSB4 ( I >*DFUN< 1,6) 

6 CONTINUE 
DO B I -1 ,N 

DO 7 NXF*] .NF 

DFCWC< I *NXF)»DFUN (I ,NXF) 

7 FUNC<I»NXF>*FUN<1 .NXF) 
a CONTINUE 

9 DO 10 1*1 «N 
10 DFUN ( I *1 )-DS 

IF (nOEBUG.EQ.O > PRINT 29, OS 
DO 1 1 I *1 »N 


K A60 
X 470 
K A80 
X A 90 
X 500 
K SIO 
K 520 
K 530 
K 540 
K 550 
X 560 
X 570 
K 580 
K 590 
X 600 
K 610 
K 620 
X 630 
X 640 
X 650 
X 660 
X 670 
X 680 
K 690 
X 700 
X 710 
K 720 
X 730 
X 740 
X 750 
X 760 
X 770 
X 780 
X 790 
X 800 
X 810 
X 820 
X 830 
K 840 
X 850 
X 860 
X 870 

x eeo 

X 890 


IF (nOEBUG.NE.O) GO TO 23 
00 22 I -I ,N 

22 PRINT 33. t . (NXF.B4 J l.NXF).FUN( I .NXFl ,NXF»1 .NF I 

23 IF (tESTMAX.LE. C.I*EPSINT1 I GO TO 25 
Return 

24 OS* .B*DS 
GO To 9 

25 IF (OSMIN.EQ.DSMAX) RETURN 

IF ( ABS C I ,9*DS ) .GT.OSMAXI RETURN 

OSM.9«OS 

OO 26 I "I .N 

26 0FUN< I . 1 ) »DS 
Return 


27 FORMAT CI9H SUBROUTINE RUNXUT2 > 

2B FORMAT C3H I-I5/C5H nXF* I 3. 2X. 1 1 HFuN < 1 .NXF ) *EI 6.8 • 2X. 1 2HDFUN ( I .NXF 
D*E16.8)1 

29 FORMAT (4H DS=EI6.B> 

30 FORMAT (3H I-15/C5H NXF* I 3.2X. 1 0H6I ( I ,NXF ) =E16.8. 2X. 1 1MFUN ( I ,NXF | - 
IE16.8) » 

31 FORMAT OH I- I5/(5H NXF-I0.2X. 10HB2< J .NXF1-E16.B.2X.1 1HFUNC I ,NXF>« 
1616.0 1 ) 

32 FORMAT OH I-I3.2X.4HNXF-I3.2X. 10H83I I .NXF » »E1 6.8 . 2X. I 1 HFUN( I .NXF) 
1 *E! 6,8. 2X.5HTEST *E1 6 *B ) 

33 FORMAT. OH I ■ r 5/ ( 5H NXF* 1 3> 2X. 1 0H84 ( I .NXF I *E1 6 • 8> 2X . 2 I HFUN ( I . NXF | * 
1E16.8)) 

END 

SUBROUTINE PRINT (L I Ml T.NL I NEP1 *LPR I NT. ZETA . DZETA . NP.NPLOT .N2ET A | 

COMMON FOl.DFO) »FC (3 > .DFC (3) « ABl (3) .AB20) .AB3(3) . AB4 (3> 

COMMON FUN ( 20.6 ) .OFun< 20.6 > .FUNC ( 20 . 6 ) . OFUNC ( 20 *6 1 .61 (20. 6 ) .B2 ( 2o* 
16 >.83(20. 6)» 84(20.6) ,SBAR(20 ) . DSBOZ (20 ) . SBARP ( 20 1 . DSB 1 (20I.DSB2 (20 
2 ) ,OSB3 ( 20 ) .DSB4 I 20 > . x 1 C 20 ) • XO (20 > , YO ( 20 » • A 1 ( 20 > .A2 < 20 ) . A3 (20 ) . A4 ( 2 
30 ) * A5 ( 20 1 . A6 < 20 ) . A7 ( 20 ).A6(20). AK6 (20 ) «GX (20J«GY(20). GXX < 20 ) .GW (2 
40 > »GXV ( 20 ) .ETA ( 20 ) «ETAS( 20 ) . ETASP ( 20 ) .BETAD ( 20 ) .RHO (20 ) .R ( 20 ) .P <20 
5>.U<2O>«V<20> .*<20 > «pP<20) .UPI20 >. VP<20) < VP<2C> <XS<20 ) * VS <ZOI*DUOZ 
6(20). DPD2 (20 ) .DVDZ (20 ) . OVDZ ( 20 ) . AM (20)<S(20>« ZETAl <20 ) *2ETA2 <20 ) ,Z 
7ETA3(20>.ZETA4(20).DU1 < 20 ) . 0U2 ( 20 ) , DU3 (20 ) .0U4C20) »DV1 <20 >.0V2<20) 
B . DM3 < 20 > . DM4 < 20 > . DV | (20) .DV2 (20 > .0V3 < 20 1 . DV4 C 20 ) . G < 20 ) « PS I D (20 ) .DP 
91 (20>.DP2(20> .DP3(20,.DP4 (20 ) .OEONS ( 20 ) .CROSSM ( 20 ) .RHO I SEN (20) 
COMMON U I SEN ( 20 ) .POROGAM ( 20 ) .0 ( 20 > . OP (20 ) .PS I SD<20 1 .BERNOUL (20 ) «XS 
1 BAR < 20 ) . YSBAR 1 20 > * XOBAR ( 20 ) « YOBAR (20) .XBAR(20) .YBAR<20) 

COMMON AAST.B1 I .B1 2 . B1 3. B2 1 . B22 • B23 .NSPACE .PI .M.N.L1 . T . THETAR .GAMM 


XI 340 
Kl 350 
XI 360 
XI 370 
<1380 
XI 390 
XI 400 
X 1 4 1 O 
x 1420 

K 1430 

X 1 440 

XI 450 
XI 460 
XI 470 
XI 480 
XI 490 
XI 500 
X 151 O 
XI 520 

X 1530 
XI 540 
XI 550 

XI 560 

X J 570 
XI 580 

XI 590 
K 1 600 
X 1 61 O— 
L to 
L 20 
L 30 
L 40 
L 50 
L 60 
L 70 
L 80 
L 90 
L 100 
L HO 
L 120 
L 130 
L 140 
L 150 
L 160 


DO 11 NXF *2 . NF K 900 

BI (I,NXF>*DS*DFUNC(1 ,NXF) X 91 0 

It FUN( I.NXF>*FUNC( 1 .NXFHB1 < I »NXF>/2, K 920 

DO IP 1*1 .N X 930 

12 FUNd.l >-FUNC< |,1 )4DS/2» X 940 

IF (NOEBUG.NE.O 1 GO TO 14 X 950 

DO 13 I *1 iN < 960 

13 PRINT 30. I. (NXF.81 < J.NXF>.FUN( 1 ,NXF) .NXF*1 ,NF> X 970 

14 CAU. DERIV2 (OS.NPl K 980 

IF (NEXTRAP.EQ.l > RETURN < 990 

IF (NEGP.EO.O) RETURN X 1 000 

DO 15 I-t.N KI0I0 

DO 15 NXF-2.NF K1020 

B2(l.NXF>*OS*DFUN(|.NXF> X 1 030 

15 FUN( I.NXF1*FUNCC I .NXF)TB2( I ,NxF>/2, K1040 

IF (NDEBUG.NE.O) GO TO 17 XI 050 

00 16 I*1.N XI 060 

16 PRINT 3l» I ♦ (NXF • B2 ( I • NXF ) . FUN ( I .NXF I .NXF* 1 . NF ) X1070 

17 CALL DERIV2 (OS.NP) X1080 

IF (NEXTRAP.EQ.l) RETURN X1090 

IF (NEGP.EO.O) RETURN XI 100 

NCCNT-0 * - XI I 10 

DO 19 1*1 .N x 1 1 20 

FUN I I»1 )*FUNC( I » 1 >TOS Kl 1 30 

00 19 NXF-2.NF x 1 1 40 

G3lt,NXP)«OS*OFUNtl.MXF> KU50 

IF ( ABS <02 < 1 .NXF I /OS ) *LE .1 .C-03 ) GO TO IB XI 160 

TE5T*ABS<I .-B3(I»NXF)XB2( I .NXF) > XU 70 

MCCNT-NCCNTTl K1IB0 

IF (NCCNT.CQ.l) TESTMAX*TEST k 1 1 90 

IF (TEST.GT.TESTMAX) TESTMAX-TEST X 1 200 

18 FUN ( I . NXF ) *FUNC < I . NXF ) +0 3(1. NXF ) K12X0 

IF (NOEBUG.EQ.O > PRINT 32. I .NXF .83 ( I .NXF 1 .FUN (I ,NXF 1 . TEST K1220 

19 CONTINUE X 1230 

IF (DSMJN.EO.DSttAX) GO TO 20 KI240 

IF (TESTMAX .GE.EPSINt • AND. ABS(DS 1 »GT .DSMI N I GO TO 24 K1250 

20 CALL DERIV2 (DS.NP) K1260 

IF (NEXTRAP.EQ.l) RETURN X1270 

IF (NEGP.EO.O) RETURN K12B0 

DO 21 1*1 .N XI 290 

DO 21 NXF *2 .NF X I 300 

64 (I ,NXF)*OS*OFUN( 1 .NXF) K1310 

£1 Fun 11 .NXF>*FV*4CU .NXF) 41 ./6.*(B1 1 1 .NXF >T2.*B2( I .NxF >+2»*B3< 1 .NXF>+ XI 320 
1 B4 ( I «NXF ) ) XI 330 


1A.DXI.CON1 .C0N2.STMACH.AB.A1 1 . A 1 2 . A I 3 • A2 I .A22.A23.A3I .A32.A33.ALPH L 170 
24R.NI .NDEBUG.M.HK.SIGMA.RAO.NF.NLJNES.EPSIG.NPRINT.SPACER.LLEE.UWI L 100 
3ND.RHOLEE.RHOV1ND.NEXTRAP.EPSIGOM,EPSINT.X1N1 .SIGNPl L 190 

COMMON XP.XlP.PHlMR.BSBAR.BS.RS.XIBSBAR L 200 

COMMON /ERROR/' ER < 1 2 ) . ERR l 1 2 > .BLK ( l 2 ) L 210 

COMMON VCC(20>,KCC«2r>) .SBARmLD(20).XBHL0(20).YBHLO{2O1 L 220 

COMMON CP (20 ) .XMACHB (20 ) . YMACHB ( 20 ) .UC < 20 > « VC ( 20 ) « VC < 20 1 . VX (20 ) . VY L 230 
1 (20j.THETNOR(20>.PSlNOR(20).P0PTI I20J.PTOPTI (20).PT(20).POASTSO(20 L 240 
2 ) .POP INF (20 ) .XMACH (20 ) . YMACH 1 20 ) .CP SHOCK ( 20 > • CPBOD V ( 20 1 L 250 

DIMENSION NAME (16). NAME 1 ( 16). NAMES (16). NAME3<8 ) « NAME4<20> l- 260 

DATA <NAME« 1 >« 1*1 «16)/lHP.3MRHO. 1HS. 1HU.IMV.1HV.4HOPDZ.4HOUDZ.4HDV L 270 
1DZ.4MDVOZ.3HETA.1HG.5HOSBDZ.5HSBARP.7HBERNOUL/ L 280 

DATA IHAME1 ( I ) . 1*1 . 16 )/2HPP.2HUP.2HVP.2HVP.5H0E0NS.3HAMU»2HU0.2MAM L 290 
I .6HCR0SSM.7HRH0ISEN.5HU1SEN.7HP0R0GAM.4HS6AR.2HUC.2HVC.2HVC/ L 300 

DATA CNAME21 I ) . 1 *1 » 1 4 )/4HPSlD.2HX0.2HY0.2HXS.2HYS.4HETAS. 5MBETA0.2 L 310 
1HXI .2HAM.2HUP.2HVP.2 hPP.2hRP .2HVP/ L 320 

DATA ( NAME 3 < I). 1*1. 4) /SHXOBAR . 5H YOBAR . 5HXS8AR . 5H YSBAR/ L 330 

DATA NAME4/5HPS ISO. 4HXBAR • 4 H YEAR . 2HVX . 2HV Y • 2h VZ • 6HPS I NOR . 7HTHET NOR L 340 
1 . 7HP/PT 1 NF . BHPT/PT 1 NF . 7HP/ROVSO . 9HP/R0A ST SO .2HPT . 6 HP/P 1 NF , 3HVCC . 3H L 350 
2VCC.7HCPSH0CK.6HCPB0DY.5HXBHL0.5HYBHLD/ L 360 

IF (lPRINT.EO.2) PRINT 30 L 370 

LB-1 L 380 

IF" (LIMIT. LE. 10) ‘LL-LIMIT f-' «= = - L 390 

IF (LIMIT. GT.IO) LL* 1 0 L *00 

PRINT 23 L 410 

GO TO (l.lQl* LPRINT L 420 

1 IF (N.EO.l) GO TO 12 L 430 

IF (ZETA.EQ.l.) GO TO 2 L 4 *0 

IF ( ZET A.EQ.O ■ ) GO TO 9 L 450 

LJMlTNl-LIMIT-1 L 460 

GO TO 4 L 470 

2 DO 3 I -1 .LIMIT L 480 

XBHL01 I >-XB»Rt 1 ) I- 490 

YBHLD < 1 >*YBAR ( I ) L 500 

3 SBARHLDd )*SBAR( I ) L 51 0 

NZETA-0 L 520 

IF (M.EQ.2.AND.NPLOT.EQ. 1 ) PUNCH 29. (PS I SO < I ) . I = 1 .LI M I T 1 L 530 

IF (M.NE.2.AND.NPL0T.E0. 1 ) PUNCH 29. ( XSB AR ( I ) . I = 1 .L I M 1 T ) L 540 

IF (NPLOT .ED. 1 ) PUNCH 29. ( CPSHCCK ( I > , I * 1 .L t Ml T I L 550 

GO TO 1 1 U 5 *° 

4 DO 8 I-2.L1MITN1 L 570 

DO 7 I I » 1 ,L 1 M t TN 1 L 580 

IF 1SB4RHLD1 ll.LT .SB aRHLOI 1 -1 1 .AND.T.LT.l •> GO TO 5 L 590 

IF <SB4R( I I ) .LE.SBARhLDC 1 1 . AND.SBAR< I 1+1 ) .GE.SBARHLDl I 1 ) GO TO 6 L 600 
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IF (T»GT.l ..AND.SBAR hLDI I* l J.GT.SBARHLOf I >» GO TO 7 L 610 

5 IF (SBAQIII l.G£.S0AtJHLD(l >.AND.5BAB( IJ + 1 > *LE . SBARMLD ( I > ) GO TO 6 L 620 

GO TO 7 L *30 

6 XBHLD< 1 >“X0AQ ( I 1 »* IS0ARHLD( I l-SBARI I| > 1* (XBAR( I 1*1 )-XBAR( 1 1 ) >/(S3A L 640 

1 R ( I 1 * 1 1 “SB AH (11)1 1- 650 

Y8HLD f I i“ YBARCf I | + ( SflARHLO f 1 )-SSAR< f I ) >* (YBART 1 1 + 1 I — Y0AR ( J| ) 1/fSSA L 660 
1R ( I 1*1 )-SBAR( I II I U 670 

GO TO 8 L 680 

7 CONTINUE L 690 

a CONTINUE I- 700 

GO TO M L 710 

9 DO 10 1-2. LIMIT 1- 720 

XBHl_D< I >«X8AR (LIMIT) L 730 

10 YBHLO< 1 I “YBAR (LlMl T } L 740 

11 N2ETa»N2ETA41 L 750 

XBHUnl 1 )«XBAR( 1 ) L 760 

X0MLD(LIM!T>“XBAR(L!mIT> L 770 

Y8ML0I 1 )“Y0AR( I » L 760 

YBNLD ( LIMIT)* YBAR (LImIT) L 790 

IF INPt-OT.EO.l > PUNCm 29. (XBHUOI I ». !*! .LIMIT) L BOO 

IF (NPLOT.EQ.il PUNCH 29. ( YBHLO ( 1 1 • I *1 »L INI T 1 L 810 

12 PRINT 25. NAME* (If ) . <P ( I > , I “LB • LL I L 820 

PRINT 25. NAME* ( I 2 ) , (POASTSO ( I 1 . I “LB.LL ) L 830 

PRINT 29. NAME* (9>. (PORT! ( I | , MLS.LL1 L 6*0 

PRINT 25. NAME Alt*). | POP 1 NF t l ) . I “LB .LA. > L ®50 

PR I NT 25. NAME (2 > . (RhOI I >. 1«LB.LL) L 860 

PRINT 25. NAME t* I* IU|I ) • J “LB .LL > L 870 

PRINT 25. NAME(S). <V|I ). I “LB.LL) L 8B0 

PRINT 25. NAME <6> . (to | 1 ) . I *LB .LL » L 890 

PRINT 25. NAME | ( >4 ) . (UCf J > « J “LB.LL > L 900 

PRINT 25. NAME 1 ( 10 1 < < VC < I ] . I *LB .|_L I L 910 

PRINT 25. NAME1 ( 16) . (»C( I | . 1 “LB.LL 1 L 920 

PRINT 25. NAME* ( 15 ) « i VCC( t t « 1 “LB »t_C 1 L 9 30 

PRINT 25. NAME* ( 16) . (WCC( 1 I • I ■LB.LL.) L 940 

PRINT 25. NAME* (4 I . (VX( I ). I «LB.LL) L 950 

PRINT 25. NAME«(S;.(vY(( l.I-LB.LL) L 960 

PRINT 25. NAME* <6 ! « <uC ( l > . I “LB.LL ) L 970 

PRINT 25. NAME* < 7 ) . < pS I NOR ( I > , 1 “LB .LL ) L 980 

PRINT 25. NAME* <8 )• I THETNOP( 1 ) . I «LB.LL» L 990 

PRINT 25. NAME* (2 ). CXBARC n . 1»LB.LL) L1000 

PRINT 25. NAME* ( 19). IXBHLOC 1 1.1-LB.LL) L1010 

PRINT 25. NAME* ( 3 > • ( YBAR ( I ) . ) “LB .LL ) L 1 020 

PRINT 25. NAME* < 20 ) . ( YBMLD ( I ) « I “LB.LL ) L 1 030 

PRINT 25. NAME (II ) . < ET A 1 1 ) « I “LB »LL ) L104O 


GO To (12.18). LPPINT L 1 *90 

17 LB“LL*I L 1500 

LL-LIM1T L1510 

PRINT 28 L 1520 

GO TO (12.181. LPPINT L 1 530 

18 PRINT 25. NAME2( l ) « <PSTO( 1 ) . I-L0.LL I LIS40 

PRINT 25. NAME* 1 1 ) « (PStSD( I) • I “LB.LL I L 1 550 

PRINT 25. NAME2 (2 I • (XO ( I > , I “LB.LL I LI560 

PRINT 25. NAME2 C3> • < VO I I) . 1 “LB.LL ) LI 570 

PRINT 25. NAME3 < 1 I » IXOBAR ( J ) . 1=LB.LL I L I 500 

PRINT 25. NAME 3 C 2 I « I Y08AR ( !1 . 1 =LB «LL ) L1590 

PRINT 25. NAME2 (4 I . (XS( r I , I “LB.LL I LI600 

PRINT 25. NAME2 C5 I • IyS( 1 ) . 1 =LB.LL I H 61 O 

PRINT 25. NAME3 0I . IxSSABC I) . I “LB.LL I LI620 

PRINT 25. NAMES I* I . (ySBAR ( I > . J “LB.LL I L1630 

print 25. NAME2(6>. (FTASI I > . I=LB.LLI L16*0 

PRINT 25. NAME2(7>. (SETAOM ) .1-LB.LL1 L1650 

POINT 25. NAM£2(8 1 • (Xf ( I I . !«LB.LL I L 1660 

PRINT 25. NAME* I |7> . (CPSHOCXI 1 >• I “LB.LL I L1670 

print 25. NAME* ( |B ) • (CRBOOY ( I I . I “LB.LL ) L 1 680 

IF (NEXTRAP.EO. 1 ) GO TO 19 L1690 

PRINT 25. NAME2 C I 0) . (UPc 1 ) , I “LB.LL I LI 700 

PRINT 25. NAME2 < 12 I « <PP| I I . I “LB .LL 1 LI 710 

PRINT 25. NAMES t 1* I * ( YP ( 1 r . I“LS.LL > L 1 720 

PRINT 25. NAME2(ll I. (toPl l 1* l“LB.LLl L1730 

PRINT 25. NAME { 1 4 > « < SBARP ( I ) . I =LB . LL I LI 740 

19 IF (CL.EO.L IMI T ) GO TO 20 L I 750 

IF (LIMIT. GT.LL.ANO.LL.LE. 10) GO TO I* L 1 760 

IF (LIMIT. GT.LL.ANO.LL.LE. 201 GO TO IS L 1 770 

IF (LIMIT.GT.LL.AND.LL.LE.30J GO TO 16 L 1 7B0 

IF (LIMIT. GT. LL.AND. LL. LE. *0 ) GO TO |7 L1790 

20 PRINT 22 L1800 

PRINT 21. I I.XIII ).X0« I I.V0( I I.ETASI 1 I.ETASP* I >• I»> ‘LIMIT I L1810 

PRINT 22 L I 820 

RETURN L 1830 

L 184 0 
LI 850 

21 FORMAT (3M I«14.2X.6HX1 < 1 j=EI6.8.2X.6MX0( I »“EI6.8.2 x.6HyO( I l“E16.6 L1860 

1.2X.6HETAS1 I )-E16»8.2X.9HETASPI I l“E16.6> L1870 

22 FORMAT (/> Li 880 

23 FORMAT (1 AX.3H1«|9X.3H1“29X.3HI“39X.3M1»49X.3H|«59X.3HI“69X.3HI“79 L I 890 

1 X.3H1 “89x . 3H I “99X . *M ) » I 0/ > L 190 0 

2* FORMAT |/1*X.*NI«I 18x.4HI“12BX.*HI«130X.*HI-1*Bx.*HI“I58X.AH1«168x L1910 

1 . «HI • ] 78x.*H t “188 X«*h1«1 98X . *H1 “20/ I LI920 


PRINT 25. NAME (12 >. CG( I ».l*L0.LL) 

PRINT 25. NAMEI (5 >« (OEONS( I ». I»LS.LL | 

PRINT 25. NAME 1 ( 8 ) * t AM ( I I . I s LB • LL I 
PRINT 25. NAME1 (9). CCROSSMII i.l-LB.LL) 

PRINT 25. NAME 1 ( 1 3 1 . ( SBAR ( I ) . I “LB.LL I 
PRINT 25. NAMEI (12). (POROGAMII I. I“LB.LL) 

PRINT 25. NAME* UO). (PTOPT J ( | l. I-LB.LLI 
PRINT 25. NAME*! 13) . (PT( II . 1 “LB.LL) 

PRINT 25. NAMEC IS). CbERNOuL ( I ). I “LB.LL I 
IF (NEXTRAP.EO. I ) PRINT 25. NAME ( 9 ) . ( DVDZ C I » . I “LB .LL > 
IF (NEXTRAP.EO. 1 > PRjNT 25. NAME (7 ) » tDPOZ t 1 1 . I “LB .LL > 
IF (NEXTRAP.EO. 1 ) PRiNT 25. NAME I ( 1 ) . (PP ( I ) • I “LB .LL ) 
IF (NEXTRAP.EO.il PRINT 25. NAME I ( 2 ) . (UP ( l ) . I “LB . LL ) 
IF (NEXTRAP.EO.il PRINT 25. NAME 1 ( • ) . < toP ( I ) . I “LB ,LL > 
IF (NEXTRAP.EO. I > GO TO 13 
PRINT 25. NAME(7). (OpOZU I. I-LB.LLI 
PRINT 25. NAME (8 > . (DljOZI I ) . I “LB.LL) 

PRINT 25. NAME (9) . <DvOZ( I ). I “LB.LL I 
PRINT 25. NAME ( I 0 > « ( QtoDZ ( 1 ) « 1 “L0 .LL J 
PRINT 25. NAME! 13 ). (dSBDZ( | ) . I “LB.LL) 

PRINT 25. NAMEI l| ».(PP(1 ). I “LB.LL) 

PRINT 25. NAMEI (2 ) • (uP( 1 ) . | “LB.LL I 
PRINT 25. NAMEI (3). lvP< 11 . I“L 8 .LL) 

PRINT 25. NAMEI 14 ). (*P( I I . (“LB.LL). 

PRINT 25. NAME ( 1 4 > . ( 4BARP( I ) , I “LB.LL) 

13 IF (LL.EO.L IMIT ) RETURN 

IF <Ll M IT. GT. LL.AND. l L.LE. 10 ) GO TO 14 
IF (LIM JT.GT .LL.AND. lL.LE. 20 ) GO TO 15 
IF (LIMIT. GT.LL. AND. lL.LE. 30) GO TO 16 
IF (LIMIT. GT.LL. AND. lL.LE. *0) GO TO 17 

14 LB'LL 1 * 1 

IF (LlMIT.LE.20) LL“LlMlT 
IF (LIMIT. GT. 20) LL“20 
PRINT 24 

GO TO (12.18). LPRINt 

15 LB “LL * 1 

IF (LIMIT .LE • 30 ) ULslIMIT 
IF (LIMIT. GT. 30 | LL “ 3 O 
PRINT 26 

GO TO ( 12.18) . LPRINT 

16 LB“LL* I 

IF (LIMIT. LE. 401 lL“ L IM|T 
IF (LIMIT. GT. 40) LL “40 
PRINT 27 


LI 050 
LI 060 
LI 070 
LI 080 
LI 090 
LI 100 
LlllO 
LI 120 
LI 130 
LI 140 
LI 150 
LI) 60 
LI 170 
LI 180 
LI 190 
LI 200 
L 1 2 1 0 
LI 220 
L 1 230 
LI 240 
LI 250 
LI 260 
LI 270 
LI 280 
LI 290 
L1300 
L 1 3 1 0 
LI 320 
LI 330 
LI 3*0 
LI 350 
LI 360 
LI 370 
LI 380 
LI 390 
LI 400 
L l * 1 0 
L 1*20 
L 1430 
L 1 **0 
LI *50 
LI *60 
LI 470 
LI *80 


25 FORMAT (1X1A10. 10EI2.4) 

26 FORMAT (✓J*X.*MI“218X.4MI=228X.*HJ “230X . 4H J “24BX . 4 HI “258X . *M J “268X 
1 . 4H I *27BX . *H I “2B8X . 4 M I “298X . 4H t “30/ > 

27 FORMAT (/14X.4NI “318X.4HI.328X.4HI • 330X . * H I « 3*8X . 4 H I “358X.AH1 «36Qx 
1 , 4HI “378X « 4H I - 388 X .«Hl “39QX *4H! “40/ ) 

28 FORMAT (/1*X.4MI“*18X.4HI .428X.4HI “438X.4HJ“4*8x.4H!=A5ex.*HI“46ax 
1 . 4H I «*78X .4H I “4B0X * 4M I “498X . 4H 1 “50/ ) 

29 FORMAT ( 5E 16.8) 

30 FORMAT (//55X. I 9hSUMmARy PRINT BLOCK//) 

END 

SUBROUTINE FMC0EF5 C L I M I T . NA . NB . NSPACE * X I . A . M . A A . A A A .P . A2 . A) .A4.GY 
1 .YO.S INALP. COSALP ) 

C 

C COMPUTE FORCE AND MOMENT COEFFICIENTS 

C 

DIMENSION XI (LIMIT). P(LIMIT). A2(LJMIT>, Al (LIMIT). A*(L|M|T). GY 
l (LIMIT). YO (LIMIT > 

IF (NSPACE. EO. I > GO TO 5 

SUM1 “0.0 

SUM2.0.0 

SUM3eO.O 

NCOMP* ) 

DXU.Xl (NA)-Xl (NA-l I 
DO 2 I “1 .NA 
GO To II 

1 CONTINUE 

2 CONTINUE 

A 1NT 1 “OX I 1 /3.4SUM1 

A1NT2*DXI l/3.*SUM2 

A1NT3“DX1 1/3. *SUM3 

SUM) .0.0 

SUM2.0.O 

SUM3.0.0 

NC0Mp«2 

□X 12.X I (NB)-XI CNB-1 ) 

DO 4 ) “NA .NB 
GO TO 11 

3 CONTINUE 

4 CONTINUE 
AINT4-DX I2/3.*SUM1 
AINT5“DX12/3.*SUM2 
A I NT 6* OX 1 2/3. *SUM3 

5 SUMl.0,0 
SUM2.0.0 


L 1930 
L 19*0 
LI 950 
LI 960 
L 1 970 
L I960 
LI 990 
L2000 
L20IO 
L2020- 
M 10 
M 20 
M 30 
M *0 
M 50 
M 60 
M 70 
M 80 
M 90 
M 100 
M 1 10 
M 120 
M 130 
M 140 
M ISO 
M 160 
M 170 
M 180 
M 190 
M 200 
M 210 
M 220 
M 230 
M 2*0 
M 250 
M 260 
M 270 
M 280 
M 290 
M 300 
M 310 
M 320 
M 330 
M 3*0 
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SUM3-0. 0 
NC0NP-3 

DX 1 3-X l (LIMIT )— XI CLIMl T-l ) 

DO 7 I-NB. LIMIT 
CO To 1 1 

6 CONTINUE 

7 CONTINUE 

* I NT 7* D X I 3/ 3 • * SUM 1 
AINT8-DX13/3.*SUM2 
AtNT9-DXI3/3.*SUM3 

go to nspace 

8 CZ-2./A*AIN77 
CY—2./A*AlNT8 

IF (M.EO.3) YBRR-0.0 

IF (M.NE.3) YBRR-4./|3.*A#CZ)»AINT9 
GO TO 10 

9 CZ-2./A* ( A I NTI *A I NT4 *A I NT7 1 
CY--2«/A*(AINT2*A!NT5* A I NTS ) 

IF IM.E0.3) YBRR-0.0 

IF (M.NE.3) YBRR-A./(3.*A*CZ)*IAJNT3+AINT6+A[NT9| 

10 CD-CZ # COSALP*CY # S!NAlP 
CL-— CZ*5 INALP-fC Y*COSALP 
ZBAR-2./3. 

CM-mRR*CZ-ZBAR*CY 
PRINT 1* 

PRINT 12 . CZ.CY.CD.Cl 
PRINT 13. YBRR.ZBAR.CM 
RETURN 

11 AAA-pC 1 )— AA 
DCNON-SORTI A2( I >) 

QUAN| »AAA*A4< I )*A1 ( I )/D£NOM 
QUAN2-AAA*GY( n*Al l 1 i/DCNOM 
QUAN3-0UAN1 * YO ( I > 

IF l(400(I.2».E0.0> FACT-4.0 
IF ( MOD (1*2) »NE .0 1 FACT-2.0 

IF (l.EQ.l.OR. J.ea.NA.OR.t.EQ.NB.OR. I. EO. LIMIT) FACT-1.0 

SUM1 • SUM 1 *F ACT *QUA N 1 

SUM2 ■ SUM2TFA C T *QUAN2 

SUM3-5UM3*FACT*OUAN3 

GO TO (1.3.6). NCOMP 


12 FORMAT 1 4M CZ-E16.B . 2X • 3MCY-EI 6.8 .2X. 3HC0-E 1 6 .B.2X .3MCL-E I 6.8 I 

13 FORMAT (6M YBAR«E16.8.2X.5HZBAR«E16.a.2X.3MCM=E16.8//l 


M 350 
M 360 
M 370 
M 380 
M 390 
M 400 
M 410 
M 420 
M 430 
M 440 
M 450 
M 460 
M 470 
M 480 
M *90 
M 300 
M 510 
M 520 
M 530 
M 540 
M 550 
M 560 
M 570 
M 580 
M 590 
M 600 
M 610 
m 620 
M 630 
M 640 
M 650 
M 660 
M 670 
M 680 
M 690 
M 700 
M 7|0 
M 720 
M 730 
M 7*0 
M 750 
M 760 
M 770 
M 7B0 


12 


15 

16 


17 


20 

21 

22 


23 


24 

25 


26 

27 


A < IROW»L)-A( ICOLUM.Ll 
A ( ICOLUM.L >>SWAP 
IF CM) 14. 14.12 
DO 1 3 L"1 .M 
SWAP.BC IROW.L) 

B ( IROW.L )-Bt I COL UN, L) 
B< ICOLUM.L ) -SWAP 
PI VOT-A C I COL UN. ICOLUM > 
IF <P I VOT ) IS.B.1S 

SCALE THE DETERMINANT 


P I VOT I -P I VOT 
IF ( ABS ( OE TERN ) — R 1 ) 
OETERM-DETERN/'Rl 
I SCALE -I SCALE* 1 
IF ( ABS ( DETERN ) — R l ) 
DETERM-DETEPN/RI 
1 SCALE- I SCALE* I 
GO To 21 

IF ( ABS (DETERN )-R2) 
OE TERM- DETERN4R I 
ISCAlE-JSCAlE-1 
IF CaBS< DETERN )-R 2) 
OETERM-OETERM*Rl 
ISCAlE-ISCALE- 1 
IF ( ABS(PIVOTI )-«I ) 
P I VOT I - P I VOT 1 /B 1 
I SCALE- I SCALE* I 
IF (ABSIPI VOTI ) — R I ) 
PIVOTl-PIVOTI/RI 
ISCALE-ISCALE*! 

GO TO 27 

IF CABS CP I VOT H-R2) 
PI VOT I -PI VOT I *R1 
I SCALE" I SCALE- I 
IF (ABSCPIVOTI >-R2) 
P I VOT I -PIVOT I *R 1 
ISCA L E« ISCALE-I 


IB. 16. 16 
21 .17.17 

|9. 19.21 
20 . 20.21 
?4.22.22 
27.23.23 

25.25.27 

26.26.27 


OIVIOE PIVOT ROM BY PIVOT ELEMENT 
DO 29 L-l ,N 


N 430 
N 440 

N 450 
N *60 
N 470 
N 480 
N 490 
N 500 
N 510 
N 520 
N 530 
N 5*0 
N 550 
N 560 
N 570 
N 580 
N 590 
N 600 
N 610 
N 620 
N 630 
N 640 
N 650 
N 660 
N 670 
N 680 
N 690 
N 700 
N 710 
N 720 
N 730 
N 740 
N 750 
N 760 
N 770 
N 780 
N 790 
N 800 
N 810 
N 320 
N 830 
N 840 
N 850 
N 860 


14 FORMAT (/S0X.I9H FORCE COEFFICIENTS/) 

END 

SUBROUTINE SIMEO < A . N . B. M . DE TERM . 1 P 1 VOT , NM AX. I SCALE ) 

C 

C SOLUTION OF SIMULTANEOUS LINEAR EQUATIONS 

c 

DIMENSION tPlVOT(N). AfNMAX.Nl. 0 (NMAX.M ) 

EQUIVALENCE CIRCW.jROW). ( I COLUM . JCOLUM > . (AMAX.T .SWAP ) 
C 

C INITIALIZATION 

C 

1 ISCAlE-O 

R1 -10.0*»100 
R2-1 ,0/Rl 
DETERM- I .0 
DO 2 J-l .N 

2 I P I VOT ( J ) -0 
DO 38 1 -I «N 

C 

C SEARCH FOR PIVOT ELEMENT 

C 

AMAx-0.0 
DO 7 J-t .N 

IF ( tPIVOT( Jl-| ) 3.7.3 

3 00 6 K-l *N 

IF (IPIVOT(K)-l I 4.6.39 

4 IF ( ABS ( AM AX ) — ABS ( A ( J« K ) ) I 5.6.6 

5 IROW-J 
ICOLUM-K 

AM AX- A ( J, K 1 

6 CONTINUE 

7 continue 

IF (AMAX) 9.8,9 

8 DETERN -0.0 
I SCALE- 0 
GO TO 39 

9 IPIVOTI ICOLUM) -IP! VOT ( ICOLUM)*1 
C 

C INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL 

C . 

IF ( IROW-ICOLUM) 10.14.10 
10 DETERN— DCTERM 
DO 1 I L-l .N 
SWAP- A ( IPQW.L) 


N 790 
M 800- 
N 10 
N 20 
N 30 
N 40 
N 50 
N 60 
N 70 
N 60 
N 90 
N 100 
N 110 
N 120 
N 130 
N 140 
N 150 
N 160 
N 170 
N 100 
N 190 
N 200 
N 210 
N 220 
N 230 
N 2*0 
N 250 
N 260 
N 270 
N 280 
N 290 
N 300 
N 310 
N 320 
N 330 
N 340 
N 350 
N 360 
N 370 
N 380 
N 390 
N *00 
N 410 
N 420 


IF ( tPIVOT(L)-! > 28*29.39 

28 A ( ICOLUM.L) -A C ICOLUM.L >/P| VOT 

29 CONTINUE 

IF CM) 32.32.30 

30 DO 31 L-l .M 

31 BC ICOLUM. L)-e<lCOLUM,L)/P!VOT 

c 

C REDUCE NON-PIVOT ROWS 

C 

32 DO 38 Ll-1 .N 

IF (Ll-ICOCUN) 33.38,33 

33 T-A<l1 .ICOLU") 

DO 35 L— I .N 

IF ( IPIVOT CL l-l ) 34.35.39 
3* A(L1 ,L l-AILl .L>-A ( ICOLUM.L )*T 

35 CONTINUE 

IF CM) 38.3B.36 

36 DO 37 L»t .M 

37 B(L1 ,LI -8 CL1 .L >-B C ICOLUM.L )*T 

38 CONTINUE 

39 RETURN 
END 

FUNCTION DIF CL .M.NP.VARl ,VARD) 

c 

C THIS FUNCTION SUBPROGRAM FINDS THE DERIVATIVE AT A GIVEN POINT. 

C L. FOR THE DESIRED X AND Y IN A GIVEN TABLE. THE N-POINT 

C LAGRANGIAN FORMULA IS USED WHERE N IS OOD. 

c 

C L • INTEGER. THE POINT OF X AND Y AT WHICH DERIVATIVE IS FOUND 

C M - INTEGER. 1-5. TO DETERMINE THE POINT FORMULA. N. N-2*M+1 

c NP- INTEGER. THE NUMBER OF POINTS IN TABLE OF VARIABLES 

C VARI - ARRAY OF INDEPENDENT VARIABLE* X. VAHICNP) 

C v*RO - ARRAY OF DEPENDENT VARIABLE. Y. VAROCNP) 

C 

DIMENSION VARI(NP), vARDCNP). X(ll), V( 1 I I 
C 

OIF-OI77700000000000"0000 
IF (M.LT.I ) RETURN 
N-2*M*1 

IF CM.GT.5.0R.N.GT.NP) RETURN 

Ml-M.fl 

M2-NP-M*! 

K«L 

IF CL.LE.M1 .OR.N.EO.NPl GO TO 1 


N 870 
N 880 
N 890 
N 900 
N 910 
N 920 
N 930 
N 940 
N 950 
N 960 
N 970 
N 980 
N 990 
N 1000 
NIOIO 
N 1020 
N 1 030 
N 1 040 
N 1 050 
Nl 060 
NI070 
N I 080- 
0 10 
0 20 
O 30 
O 40 
O 50 
O 60 
O 70 
O 80 
O 90 
O 10O 
O I 10 
O 120 
O 130 
O 140 
O 150 
O 160 
O 170 
O ISO 
O 190 
O 200 
O 210 
O 220 
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K-M) 0 230 

IF <L«Lr.M2i GO TO 1 0 240 

K-L.- fNP-Nl O 230 

J «X«L-K O 260 

DO 2 J'I>N 0 2?0 

»J«M x+J O 2B0 

X< Jr-VAR[ <*J> 0 290 

2 Y< J)«VARD(*J ) O 300 

A-l. 0 310 

B-O. O 320 

C-0. 0 330 

OO 4 J»1 .N O 3A0 

IF (J.EO.K) GO TO 4 0 330 

P-t. O 300 

OO 3 f-l.N 0 370 

|F CI.EO.J) GO TO 3 0 380 

P»Pf(X(J|-XUH O 390 

3 CONTINUE O 400 

T-X(K)-XIJ) 0 4J0 

B-e+Y< J)/IP*T > 0 420 

A-A*t O 430 

C-C+J./’T 0 «40 

4 CONTINUE O 450 

D!F-A*B+VIIC >*C 0 460 

RETURN O 470 

END 0 480- 
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Subroutines 

A list of the subroutines used in this program is presented. 


FORTRAN 

name 

Called by 

Function 

BG 

MAIN 

Executive subroutine for computation of body 
geometry 

RUNKUT 

BG 

Runge-Kutta integration for body geometry 

DERIV 

BG 

RUNKUT 

Computation of derivatives for body-geometry 
integration 

APPROX 

MAIN 

Computation of approximate shock shape for 
NREAD = 0 

LGRANGE 

MAIN 

DERIV2 

Establishes line arrangement, accounting for 
symmetry where appropriate, for computation 
of £ -derivatives for function DIF 

DIRCOS 

MAIN 

Computation of direction cosines of r-, tj-, 
r-coordi nates 

SHOCK 

MAIN 

Computation of flow quantities behind shock 

DERIV2 

MAIN 

RUNKUT2 

Executive subroutine for computation of deriva- 
tives for integration of equations 

EQNS 

DERIV2 

Computation of £ -derivatives for integration of 
equations 

RUNKUT2 

MAIN 

Runge-Kutta integration of equations 

PRINT 

MAIN 

Print instructions 

FMCOEFS 

MAIN 

Computation of force and moment coefficients 

SIMEQ 

MAIN 

Solution of simultaneous linear equations to eval- 
uate corrections A 77 to the shock shape 

DIF 

LGRANGE 

Computation of derivatives from the Lagrange 
formula 
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Flow Chart 

A flow chart of the computer program is given: 
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BLOCK A 
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Compute pressure coefficient 
at surface 

If print run and plotting is 
desired, punch cards 
If NPIV=0, print CP and V 


SET NPRINT=2 
NEGP=1 


IF(NPRINT.NE.2) 


iF(M.EQ.O.OR. 

M.EQ.I.OR. 
^ M.EQ.6) 


SUBROUTINE FMCOEFS 
(Compute force and 
moment coefficients) 


IF(NCOUNT.NE.O) 


TESTS FOR CONVERGENCE: 

Compute VMAX 

IF(NCYCLE.EQ.l.AND.VMAX.GT.VTEST) GO TO 85 
IFfNCYCLE.GT. LAND. VMAX. GT.VTEST1) GO TO 85 
IF VMAX.LE.VTEST) GO TO 80 
IF(N.EQ.l) GO TO 85 

IF NCYCLE.GT. LAND. VMAX. LT.VTEST1) NSK3P = 1 
IF(NCYCLE.GT. LAND. VMAX. LT.VTEST1) GO TO 86 
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NCOUNT = NCOUNT + 1 
KCOUNT = KCOUNT + 1 
NP1V = NPIV + 1 



J=J+1 

Compute ETAS variation 
for Newton-Raphson iteration. 
Compute matrix 
elements D(I,J) 



(This path is the modified 
Newton method 
(D(I,J) not recomputed)) 



End of "DO 104 LI = 1, NCASES" Loop 
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SAMPLE COMPUTATION 

A sample computation, which required 63 seconds on the Control Data series 
6600 computer system, is presented for a conical wing of circular-arc cross section. 

The input is 

Input card no. Input 

1 STM AC H = 4.0, GAMMA = 1.4 

2 N = 8, M = 4, NCASES = 1, NREAD = 0, 

NSPACE = 1, NPLOT = 0, NPUNCH = 0 

3 VTESTHD = 0.001, VTEST1 = 0.03 

4 T = 0.06, THETAD = 40.0, ALPHAD = 5.0 

Explanations of sections of the sample -computation output are provided at the end 
of this appendix. Circled numbers at the left side of each section indicate the appropriate 
explanatory note. 


Input Cards for Sample Computation 


4^0000^0+0 1 
8 4 1 

• 0 O 1 

ftnnooo^n-n i 


\ 400 0 0 0 O + o 1 

0 ] o 0 

• 03 

4 o n O 0 O O o + ~ ^0000000 + 01 


Conical Flow by the Method of Lines 


N= 3 M=4 NRE AD = 0 NSPACE=1 NP= 5 

N A= 1 AN 4= 0. N3= 1 BNB= 0. 

VTEST = 1. COOOCOOOe-03 V T E S T 1 = 2. CCCOOOOOt-02 
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© 


© 


©t 


lC/ld/7 1 CS.36.34i. 

STMACH* 4.COOOOQOO£*GO GAMM a= 1 .4CCCC000E*00 T* 6. OOCCOOCOE-02 T) ET AO* A .OOCOOOOOE*0 1 ALPHAO* 5.00000000E+00 
_1PSI6CM* l.OCOOOOOOE-03 

' A AST* 4.677C7173E-C1 PTINF= t . 77 €35?S36*00 
1NTCNT* 6 3C X I N 1 = 7. CC 1 3 c4<iO£ - C 1 

DELTA{N*l)=» 1.6685412&E+C1 *£T /< SC-NIC)* 6.28541702E*01 DELTA? SONIC 1= 3 . 05 52 1 391 E +C l 

. . BETA ( CET )* 6.48525564E*01 CELT A ( DET 1= 3.C6670273E + CI 

_0ETAC<N*lJ* 3.78356441E+01 SICMAC* 2. 1150231 5E*0l VNS* 6. 46245696E-C1 A MN= 2 . 58 4982 78 E*00 

NCYCL E* 1 AT 107 l<t/71 CS.36.2S. 

“etas 

1.9C074622E-01 1.8626 4 46 86— 01 1. 74993488E-0 1 1 . 56 742 1 3 1 E-C l 1 .323 1 Cfi 1 IE- 01 1 . C28 20 109E-0 1 6. 9 710 771 3F-02 3.474 37090E-02 

C. 

ETASF 

-3.9? 50 5029 E- 15 -8.o7717320E-02 -1.6S08515OE-OI -2 .4 56 £ 1939E-C l -3. 105037E6E-CI - 3 . 60692 377E-C l - 3. 92589397E-01 -3 . 98268498S-0 1 

-3.868754676-01 

CPII1 AT SKCK 

6 * 8A.4Q 4 2 C 8 E - 02 7.09433824E-C2 7. 8231 7578E-C2 8.96587168E-02 l .09 18 9 704E-0 1 1 . 20 39E004E-01 1 . 36472568E-01 1.9791 1371E-01 

,JL.57329?10E-01 
CPU). AT 2ETA-0 

7.81539261E-02 7.6 7719CS2E-C2 6. 095 1 8S ti 7E-02 6. 29055952E-02 8 . 80 15 7326E-02 9 . 35 569797E-02 1 .09297 799E-0 l 1 .33933437E-0 l 

' 1.5? 72971 Cfc-01 
V 

ii, 02^939 7 j.E-02 -1.59861C69E-C2 -2 .4<J455l76E-02 -3. 1 7337925E-02 -3.6293371 IE-02 -9 .O7820733E-O2 -2.97161930 E-02 -9. 89687667E-03 

9.3 121019SE-11 

KCCUM- 1 VMAX = 9.C7620733E-C2 EPSIG* 1. CCCOOOCCE-C3 SPACER- 1 . COOOOOOOE-C 3 EPSIVAR* 1 .000003006-06 

X SCALE* 0 06T6RM* 1.65L66e86E-02 

OETA 

7.189303226-03 7 .979529C0E-Q3 8 .395 19596E-03 7.937079S 3E-03 9. 929 99 709E-C3 1 . 3956 1 8 85c -03 7. 04 1 32522 E-04 -3.9 8 756129E-09 


© 


NCVCLE- 2 AT 10/18/71 CS.3fc.55. 

“* ETAS 

1.S7269125E-01 1.937939S 76-01 1.63338689E-01 1 .69 1792 1 IE-01 1 . 36735 758E-01 1 . 09 16 572 8E-0 1 7 .04 149038E^02 3.93999528E-02 

0 . 

. msp.„ 

— 2.676351 75E-15 - 7. 792625 1 9E-02 -1.67576308E-01 -2 .69 70 3933E-C l -3. 996299776-01 -3 . 8 1 579609E- 0 1 -9.016638936^01 -9. 02291 31 7E-01 
-3. 86 87 59676-01 
CPU) AT St-CCK 

’* 7. 581027 10 E-02 7. 80o2929 0E-Q2 6. 653567S8E-02 1.01 7968S7E-01 1 . 1 89509C 1 E-0 1 l . 28508999E- 0 1 1 .90825109E-01 1. 995 16959E-01 

. 1*577297 10E-Q1 
CPU) AT 2E7A-0 

8.9C6C90A9E-O2 0.3798S979E-C2 £ . 568C6905E-02 9. 306C5938E-02 1 .065335 1 7 E-0 1 1 . 13599*976-0 I 1.237307026^01 1. 395S7589E-01 

1.57 72S7 ICE— 01 


©t 


© 


©c 


2. 3 23729236-03 -3.8106 2926E-0 3 2 . 39993309E-03 6 . C932 1 769E-03 1. 295 12301 E-03 -9.72590591F-03 -9.908795675-03 -8.B9720008E-09 

_ 9.3 13 101S9E-1 i 

KCGUM« S VMAX* 6.0932176SE-C3 EPSIG* t. COOCOOCCE-02 SPACER” 1 .OOOOOOOOE-03 EPSIVAR* 1 . OOOOOOOOE-06 

ISCALE- 0 DETERP* 1 .£5186fc£6£-02 

DETA 

__9.JU2.7j2 J9 0 E-0 9 -1.63631557E-09 9 .52267928E-04 2.6297 155 7E-04 1. 06839S48E-C3 -5.53215907E-04 1.670682875-09 -5. 74513474E-04 

jiCV.CLE* 3 AT 10/18/71 CS.29.C7. 

“~£j «... 

lj» S 7 66 6 3 5 8 E-0 1 1.935803656-01 1.8379CS52E-01 I.64942182E-C1 l. 37BC4158E-C1 l. 0361251 2E-0 1 7 . 0581 972 1 E-02 3.37 704394E-02 

-_Ga .. 

f TASP 

-2.699218 296-15 -7. 79516 172E-C2 -1.64960922E-01 -2.64639566E-01 -3 . 5557 51 54E-0 1 -3. B7643089E-01 -4. 00808756E-0 1 -4.03245809E-01 

-3.86J75467E-01 

CPU) AT JhCCK 

.7.6226 6 5 C6E— 02 7. 789469C4E-C2 8 . 66774086E-02 1.01 1C2963E-01 I .2099 581 8E-0 1 1 . 2988403 1 E-0 1 1 .40644918E-01 1.49449640E-0 1 

1.57729 7 105-Ql 
C PII )_ A T 2ETA-0 

”” 8*4 7 92 1 7 326— 02 8.44352046E- C2 £. 65225 197E-U2 8.98196485E-02 1.05151827E-01 1 . 16730671E-01 1 . 2563 7082E-0 1 1.40012675E-01 

l_.5i)297iCE-01 

V _ 

9208,7 4C6E-03 - 1 . 5649 1 2 04E- Q4 -3 . 14 7 65C99E-03 1 . 2 133042 3E-04 3. 293 3042 6E -03 -3 .26 1 401 2 7E-04 - 1 . 15092288 E-03 -3.62743993E-04 
’ S .JJ2 1 0 1 S9 E - 1 1 

AC CUNT” 9 VMAX- 3.29330426E-C3 EPSIG* 1 . CQCOOCCCE-03 SPACER” 1 .OOOOOOOOE-O 3 EPSIVAR* 1 . 000000006-06 

ISCALE- 0 DETERM* l .£ 51868 861- 02 

OEJTA 

5.V8381Q74E-05 -7 . 2 57 1 46 8 7E-L 6 S .3 30 1 5996E-05 8 . 3 76 1795 4E-C6 3. 67281C34E-C4 2.33 7800106-04 -4.14470139E-05 2 . 8 5 154590E-04 


© 


. NC.YCL Ey.4 AT 10/18/71 CS.39.1S. 

ETAS 

1.97 7262 366-0 L l .93573 IC86-QI l . 6 366*25 36-01 1.644505566-Ct l . 381 714396-Ci 1.030462926-01 7.034092916-02 3 .405559406-02 

" 0. 

JTASP 

6.68 78 774^6—15 - 7. 77 1 159 3 6E-02 -1.6 51345806-01 -2.62 782030E-01 -3.53730424E-01 -3. 91020 1 38E -0 1 -4.00067686E-01 -4. 03009 01 IE-01 
2.868 75467E-01 
CPU) AT ShCCK 

_ j *.6 26 86,2 3 2 E-02 7. 78 7 164 B3E- C2 £. 67963858E-02 l .00772543E-01 l .209340376-0 1 l . 2 1 193 563E- 0 1 1 . 40 305642E -0 1 1. 495 S93 37E-0 1 

.1.57 7297 10E-01 
CPU). AT *EJA*0 

©J,A5 45.7 9lC E-02 8.4 16919E2E-C2 £ . 7 1 80 ES l 7E-02 9. 058C458SE-02 t .03 13369 1 E-0 1 1 . I70S4420E- 0 1 1.263633026-01 l. 40 1 76250E-0 1 

... 1.5172S710E-01 

V_ _ . . 

_ r 1* I 769 e-0 3 1. 13X425446-03 -I .6 8037 7646-04 - 1. 515C53S26-03 7. 665231 X l 6-04 7 .694 076106-06 - 1 . 3438 72426-04 - 1. 5 74650006-09 

. . 9.3 131Q1S9E-U 

_ - ftCCUN T» 9. VMAX* 1 . 5 1 5 C 5 392 6 - C3 EPSIG* l.COOOOGCOE-03 SPACER* l .000000006-0 3 EPSIVAR* 1 .000000006-06 

ISCJIK- 0. •DETERM* l .£ 5 1866 86 £-02 


f7Y4-©n' 

V y / I ,-7.278062; 


-l7?7 80622«>E-0 5 1.03219190E-C4 -7 .40353469E-05 l . C86 3852 6E-04 -7. 34154554E-C5 3 . 1 7454440E-09 -8.7 1735178E-05 2.82C61T78E-04 

NCYC Lt*~~S AT "lC/ 18/71 CS.39.30. 

eTas_ 


1.9.765 34556-01 1 .936 7632 7E-01 1. 838 1C2X8E-01 1 .645591S7E-CI l. 33C97S63E-01 1 . C4 163 747E-0 1 7 .045 33516E-02 3 .433 76557E-02 


C. 


-j-telg 

1. 569 92S19E-15 -7. 772631 1 8E-02 -1.650926366-01 -2.62981758E-C1 -3.52 127250E-C1 -3- SI 2896 16E-0 1 -4 . 00407253E-0 1 -4.02 5 10975E-0 1 

_n3.sl§e»5467e-oi 

)_,AJL.ShCCK __ 

7.62 132416E— 0? 7. 797943C6E-C2 £.671406486-02 1 .00922343E-01 1.20470561E-01 1 . 3160 1 735E- 0 1 1 . 4O356078E- 01 W49617978E-01 

Lj» 5 Ifl E-0 1 . 

■ CPUl AT U1TA±Q 

8.4 54 42 7 COE— 02 8 . 42022 E 7 7E- C2 £. 66 79 5C19E-02 9. 13056476E-02 l .O2859553E-01 l . 166 1 1 576E- 0 1 1 . 2656 1 459E- 0 1 ,1.40 185412E-0 1 

laJJji^?l£fr01 

V 

—3.96091489 6—04 i.377052866-04 4 .0204 1730E-04 - 3 . 5744 1640E-04 -3. 8 l£99463E-04 4 .45 1 18496E-04 7 .879707 58E-05 6. 76C67275E-05 

9.313101 996-11 
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APPENDIX C 




N = 8 M = 4 M*E AO*L 
NA= 1 /M' U. 


NSPACfc * 1 N F * 


St * 1 6NB = 


STMACH* 4.COOCCaoOt*U\> CA-KA* 1. 4CCCC.0CQE WO 1= t.CCCCOGGOE-02 TFETAO= 4 .OGOOOOOOE *0 1 ALPHAO= 5.000000006*00 


VUS1= 1 . C C CC CCQC E -C3 VNAX = 4.451 16496E-U4 AAST = 4.67 70 7 1 73E- C 1 PTIKF= 6. 778357936*00 


KCCLK7* 10 
DELTA (N*l »= 


BtrAC 
NJ* 1 


NJ = 
NJ = 


NJ= 1 J 
NJ=1 1 


(N+ 1 1 = . 

XMACH* 
XM AC H = 
XKACH* 
XMACH* 
XMACh* 
XMACH* 
X H AC H= 
XMACH* 
XPAC H* 
AM AC H = 
XMACH* 


VHAX= <..451 
I.cfct54l2bt*t 

2. 3 35370C2t*C 
4.0737So24E 
4. 1 2S 5C 74 IE 
4.1 7341*286 
4, 20 54 7 33 3 E 
4.2275025 IE 
4.23J20037E 
4.23dl562C£ 
4.22735444E 
4«205 o 7347E 
4. 172bbl58E 
4. 12bo2199E 


1845t t -£4 EPS IG* l.COOOOOCOE-03 SPAC£R= 1 . CC00CQ00F-0 3 EPS1VA.R* 1 . 00000000c-06 
1 A( SUN 1C ) * fc.2654 1702E*Cl DEL T A( SON 1C > = 3 .05 521391 E*0 1 


BETA (C1T i- t. 483255646*01 
SIGP/D* 2.11 5u231 5c *01 
-Cl YMACH = C. 

-01 YM*Ch= -I.d9l550246-O2 
-Cl YMALH* -2. 78315643F-Q2 
-01 t H PC H* -5.6 74 744 72c- 02 
-01 Y MAC H = -7.56635256E-02 
-Cl »*ACH* -5. 457551206-02 
-01 YHACH* -J. 134 45 8 54 E- 01 
-01 YMPfH* - 1.3 24 1 187 76-01 
-Cl YRACH* -1.5 13278596-01 
-Cl YKACH* -1. 70243S42E-01 


CELTAIUET)* 3 . C 6 6702 73E * C 1 
VNS= 6.46245696E-C1 ANN = 2 . 5849 82 78 E *00 


01 


Yf*PCF= -1.B7159B24E-01 


XMACHB= 

XHACKB* 

XMACHB ‘ 

XMACHB 

XMACH 9 

XMACH B 

XMACHB 

XMACHB 

XPACHB 

XMACHB' 

XMACH8' 


4. S549C368E- 
4.92 135529E-01 
4.97368147E-01 
5. 012403 83E-C l 
5. 03d 14 l 3 1 E -0 1 
5.O5O05C52F-C1 
5.0508378 7E-C 1 
5.0375t4E5E-Cl 
5.012127C6E-01 
4. 57304709F-01 
4.920 3CCC9E-CI 


Y M ACHB = 

YMACHB* -2.254319C0E-02 
V “ A CH B = -4.50863800E-0 2 
YMAf.H B= -6. 76255659E-02 
YMACHB* -9. 01 727549 E- 02 

Y “ A CHP.= -1. 127159506-01 
YM ACHP = -1.3525914CE-01 
YMA CHR = -1.578 02 330E-01 
YMACH9* -1.8034552C6-01 

Y M A CHB= -2.028887 1QE-0 1 
YMA CHB = -2.254319Q0E-01 


SUMMARY PRINT HLCCK 




1*1 

1*2 

1*3 

1=4 

1=5 

1 = 6 

1 = 7 

1 = 8 

1=9 

PSIO 

-9.00COt*Ol 

-2.9547E ♦ C l 

-l .52046*01 

-9 • 5376E *00 

-fc . 375 7E*00 

-4 . 248 5E *C 0 

-2 • 6 166E *-00 

- 1 . 244 3E * 00 

1.44716-08 

PS ISO 

-5.0c00E*01 

-6.5d50t*Cl 

-i.2407E*Cl 

-3.8212F *01 

-2.630dE*0l 

-1.7480E*0l 

-1 .0406E+0 1 

-4.606 IF. *00 

1.4471E-08 

xc 

0. 

t . 7d4 Ef -C2 

1 .7 703E-01 

2 . 60S66- 01 

3.6522E-01 

4. 67706-C1 

5.7869E-01 

7. Oil 66-01 

8.39106-01 

YC 

-5.0346t'-02 

-4.974tE-C2 

-4,81l3c-02 

-4.5190E-02 

-4.C036E-O2 

— 3.4 744E-02 

-2.6446E-0 2 

- 1 . 5230E-02 

2.1193E-10 

XC8AR 

0. 

1 . C469E-C 1 

2.1C5BE-01 

3.2U53E-CI 

4.3526E-01 

5. 5 738E-CI 

6.8965E-01 

8 . 3562 F.-O l 

1.00006*00 

YCBAR 

-6.0000E-02 

-5.9345E.-G2 

-5.7 239E-02 

- 5. 3855E-02 

-4 .86 66 E-02 

-4. 1406F-C2 

- 3 . 1 5 1 7E— 0 2 

-1.8L50E-02 

2.5256E-10 

x$ 

0. 

9.1226E-C2 

1.836 IE-01 

2.7d2UE-Cl 

3.7624E-01 

4. Z901E-01 

5 . d 894 E-0 1 

7.0786F-01 

8.39106-01 

vs 

-2.53176-04 

-2.4915E-CI 

-2.3S18E-CI . 

-2.1901E-C1 

-1.9012E-01 

-1.5085E-C1 

-1.0815E-01 

-5. 7030E-02 

2. 11936-10 

XS8AR 

C. 

I.CE72E-C1 

2.1 t82E-0 l 

3.3154E-CI 

4.4839E-01 

5.70B6E-01 

7.0187E-01 

8.4360E-01 

1.00006*00 

Y SBAR 

-3.0171E-01 

-2.9693E-C1 

-2.05O4E-CI 

-2.tlOlE-Cl 

-2.2658E-01 

-1. 7978E-C 1 

-1.2889E-01 

-6, 7965E-02 

2. 5256F-10 

ETAS 

1.97656-01 

1.S36EE-C1 

1.B381E-01 

1 . 645bf -C l 

1.3810E-01 

1.0416E-C1 

7.0453E-02 

3.4338F-02 

0 . 

BET AO 

1.52U 76*01 

l.93C4E*Cl 

1 .9 78 IE *01 

2 . 0536E*C 1 

2.15 J9E*0l 

2 . 2 053E *C 1 

2. 2522E*01 

2.29686*01 

2.33546*01 

XI 

C. 

E.7517E-C2 

1.75036-01 

2.6255E-01 

3.S007E-U1 

4. 3 759E-C l 

5.25105-01 

6.1262E-01 

7.00146-01 

CFSHCCK 

7.o2 136-02 

7 . ?9 79E-C 2 

8.L714E-02 

1.CJ92E-01 

1.204 7E-O1 

1.3160E-01 

l . 4Q36E-01 

1 .4962 E -0 1 

l. 57736-01 

CPBCOY 

8.4544E-02 

0.42O2F-C2 

8.6b80E-02 

9.1 306E-02 

1 .C2doE~0l 

1. 1661F.-CI 

1 .2656E-01 

U4019E-01 

l. 57 73E-01 


1 = 

1 

XI<!)« 

c. 

>cm > 

C. 

YOU> = 

-5.03459 7 79 E-02 

ETASC 11 = 

1.97653455E-01 

ETASP1 11 = 


2 

um* 

b.75l73O5CE-02 

>cm = 

g. 764? 8420E-02 

YOU)* 

-4.97961126F-02 

ETAS! I 1 * 

1 .9367632 7E-0 1 

ET ASP 1 I ) = 


3 

Xt< I) = 

1 . 75034t 1 CE-Cl 

>cc n« 

1.770295556-01 

VIJUI* 

-4. 011272556-02 

ETA<( f 1 = 

1.838102186-01 

cTASPUl* 


4 

X It 1 »« 

2.62551915E-C1 

>C1 Il» 

2. 689547286-01 

YC ( 1 > = 

-4.518559876-02 

6TASU1* 

l .64559 197E-0 1 

ETASP1 l 1 = 


5 

xk n = 

3.5OUO922CE-01 

xcm« 

3.65224o70E-0l 

Y04 I »= 

-4.08357340F-02 

ETASC 1 1 * 

1.3 8C97963E-0 1 

ETASPt 11 = 


6 

xi( n* 

4. 3756c52E E-C 1 

>CI II* 

4.676961616-01 

Yom = 

-3.474371C1E-02 

ETAS ( U« 

1.04 163747E-0 1 

ETASP1 1 1* 


7 

X I( I) = 

5.25103B3CE-01 

>C( n = 

5. 786854516-01 

Y0( 11 = 

-2. t445?287E-02 

6TAS1 11* 

7.04533516E-02 

6TASP1 I 1* 


6 

xu 11 * 

C. 12o21 135E-C1 

>cm* 

7.01 164 7906-0 l 

vcm = 

- 1 . 522996 32 E-02 

ETASC I » = 

3.433765576-02 

6TASPM1* 

I = 

9 

xiuj« 

7.00lid44CE-Cl 

xc< u« 

6. 39C556 316-01 

vcn i = 

2. U926CdtiE-10 

ETASC r >« 

0. 

ET ASP (II* 


Z6 T A* 1 .0CCCOUU06*00 


©- 


@H= 



1=1 

1*2 

1*3 

1=4 

1 = 5 

1*6 

1 = 7 

[=8 

1=9 

P7PCVS0 

8.27506-02 

0.36336-C 2 

0.00006-02 

5. 5104E-02 

1.048dE-0l 

1.10446-0 

l. 1 482 E-0 1 

1 . 1945E-01 

l. 23516-01 

P/FOASTSO 

3. 78266-Ul 

3. g 2 32c -C 1 

4.C229E-01 

4.34 76F-01 

4.7944E-01 

5.0489E-C1 

5.2490E-01 

5.4607E-01 

5.6461E-01 

P APT IFF 

1.22C66-02 

1.23381-C2 

1.2962E-C2 

1.403 1E-C2 

1.54 72E-02 

l . 62 54E-C2 

1 . 6939E— 02 

1 . 762 3E -02 

1.82216-02 

P/PlNF 

1 . 8 5 3bE *CC 

1.6734E*CC 

1.4712E+0U 

2.1303F*00 

2.3493E*U0 

2.4 7 39E *00 

2 . 5720E*00 

2. 6757E *00 

2.76666*00 

PHO 

1.54346*00 

1.5544E *1C 

1.6C5 26*00 

1.6951F*C0 

i.acaof*oo 

1.86976*00 

l .91696*00 

1.96506*00 

2.00766*00 

U 

2.01916*00 

2.0 1 30E ♦ C 0 

1.99666*00 

1.96936*00 

l.9300E*00 

1.8 783E*C0 

1.81016*00 

1.72 796*00 

l. 63 1 6F*00 

V 

-4.5573E-01 

-4.4352E-C1 

-4.0378E-01 

-3.3 739E-0 1 

-2.5274E-01 

-1. 746JE-01 

-1 .06B4E-0 1 

-4 .44776-02 

9.31316-11 

W 

-3.65526-10 

- 1 .62086-0 1 

-3.17226-01 

-4.6055E-01 

-S.9566E-01 

-7. 424 BE -Cl 

-0.9183F-O1 

-1.0333E*00 

-1.17016*00 

uc 

2 . Cb92t ♦ uu 

2.C67AE *CC 

2 . C 55 06 *00 

2 . 046dE*00 

2 .02856*00 

2.01 78E*00 

2 .0095E *00 

2 .00066 *00 

1.99296*00 

VC 

5 . 37 40E-02 

5.7536E-L2 

) . fc l 7 56- C2 

1.03246-C1 

1.3666E-01 

1. 5454E-C1 

l .6976 E-0 1 

1.854OE-01 

1.99956-01 

HC 

-2. 9335E- 1 6 

1 • 742HF-12 

3.56656-02 

6.V250E-C2 

1 .02376-0 1 

1. 19316-01 

1.27576-01 

1. 36056-01 

1.40446-01 

vcc 

5.3740E-02 

6.CC55E-C2 

0.492bE-C2 

1. 19726-01 

1.5674E— J1 

1.6 730F-01 

1 .67486-01 

1 . 67126-01 

l. 63346-01 

WCC 

-3.85526-16 

-2.6651E-C3 

-l .27656-02 

- 3 . 37256-C2 

-6. 7733 E-02 

- 1 . 0 064F-C 1 

- 1 . 3056E-0 1 

-1.5797E-01 

-1.81 726-01 

vx 

-3.b552F- lo 

1.8 147E-LZ 

4.1 574E-C2 

7.32 OfcE-02 

1.0935E-01 

1.2934E-01 

1.41 14E-01 

l .5389E -01 

1.63346-01 

VY 

-5.3740E-02 

-5.73131 -G2 

-7.5 15J6-02 

- 1 . 0056E-C 1 

-1.311 5E-01 

-1.4625E-C1 

-1.5B66F-01 

-1 .7088E-01 

-1.81726-01 

VZ 

2.06926*00 

2 • C6 7t£ *CC 

2 . C 55 8E* 00 

2 . 046 8E *00 

2.028>E*00 

2.017dE*C0 

2.0C55E*0C 

2.0006E *00 

1.99296*00 

PSINCf. 

-1.U675F-14 

5.C2O6E-01 

l.J 5636*00 

2. 04 84F ♦ CC 

3.C85bE*O0 

3.6676E*C0 

4.01 76 F*00 

4 .3986 E *00 

4.68576*00 

THfcTNCK 

8.05126*01 

b.64126*C L 

8.79116*01 

8.71856*01 

8.b306E*0l 

8.5863E*01 

B . 5497E *01 

8.51326*01 

8.48076*01 

X BAR 

0. 

1.C6 72E-G1 

2. 16626-01 

3.31 546- Cl 

4.4839E— 01 

5.7086E-01 

7.0 1 87 E— 0 1 

8.4360E-01 

1.0000F*00 

XBHLL) 

c. 

1 • Cd 7 26- C 1 

2.ie826-01 

3.31546-C1 

4.4839E-01 

5.7086E-C1 

7.0187E-01 

8.4360E-01 

1.00006*00 

YRAP 

-3.017 IE- 01 

-2.5653C-C 1 

-2.85C46-C1 

-2.6101E-C1 

-2. 26 58 E-0 1 

-1.79 78E-01 

-1.2889 E-0 1 

-6 . 7965E -02 

2.52566-10 

YBHLC 

-3.01 716-01 

-2.9653E-C1 

-2.6 504E-CI 

-2.6101 t-C 1 

-2.265dE-01 

-1.7978E-CI 

- 1 . 2889 E-0 1 

-6.7965E-02 

2.52566-10 

ETA 

1.47656-01 

l.S Joet-Cl 

l. 03816-Cl 

1 .645o6-0l 

1.38 10E— 0 1 

1.0416E-01 

7. 04536-02 

3 . 4 33 8E - 02 

0. 

G 

-4 . 59t 1E-0 l 

-4.6C13E-C 1 

-4 . 6 C 36t— 01 

-4.6275F-01 

-4.6605E-01 

-4.6764E-C1 

-4.6531 E— 0 L 

-4. 60766-01 

Ill I t 

DECNS 

1. 83536 *00 

1.6 71CE*CC 

2 . C236E *00 

2.2 746c *C0 

2.59 33 E*U0 

2. 7597E*C0 

2.04096*00 

2.89216*00 

nil i 

AP 

3 . 53366 *uO 

3 .52526 *CC 

3.46476*00 

3.42206*00 

3.3409c *00 

3.29716*00 

3.26376*00 

3 .22 92F ♦ 00 

3.19986*00 

CROSSM 

7.70OOE-U1 

8.C476E-C1 

0.6796E-OI 

9.5335F-01 

1.0620E*00 

1 . 2405E *C C 

1 .4507E*00 

1.65856*00 

1.86476*00 

SEAR 

9.5G57E-03 

1.CCC1L-C2 

1.26165-C2 

l. 7412E-C2 

2. 49 82 E-02 

2.973OE-02 

3.3662E-02 

3.7993E-02 

4. 19206-02 

POROGAM 

4.50696-02 

4 .50921 -02 

4.52106-02 

4.5427E-02 

4.5772E-02 

4. 5950E-C2 

4.617 1 E-0 2 

4.6372E-02 

4.65546-02 

PT/P1 INF 

9.7O52E-01 

5 . 7 53 IE - C 1 

9.68556-01 

9. 5740E-01 

9 . 3946 E-0 1 

9.2837E-C1 

9.19 29E-0 1 

9.0939F-01 

9.0050E-01 

PT 

6 . 6 l 526 *00 

b.fcllOE *CC 

6.56796*00 

6. 48566*00 

6 . 3680E* 00 

6.29286*00 

6.23136*00 

6 . 1642E *00 

6.10396*00 

bbPNCCL 

3. 552 76-14 

3.5527E-14 

3.5527E- 14 

2.0422E-14 

3. 5527 E- 14 

3.5527E-14 

3.5527E- 14 

3. 55276-14 

4. 26336-14 

D PD Z 

-1.50446-02 

- 1. 1350E-C2 

5.7C386-04 

1.4 703E-02 

l . 73 73 E— 02 

1.U09F-C2 

9.9101 F— 0 3 

5.5813E-03 

II II 1 

OCDZ 

-9 . UC 766-02 

-6-591 IE-G2 

-7.4 170E-O2 

-5.5536E-02 

-3.4728E-02 

-1.8 367E-C 2 

-7.4376E-03 

-l. 85936-03 

II I 11 

DVDZ 

-4.9b65t-01 

-4.72CEE-01 

-3.56 15E-0I 

-2 . 9846E-01 

-2. 23356-01 

-1.6339E-C1 

-9.7 2 88E-02 

-4.2071E-02 

II I II 

DwCZ 

1.74576-15 

1.4S47F-C2 

3.4552E-02 

5. 1 18SE-C2 

3. 5480E-02 

2.1699E-C2 

1.8557E-02 

8 .95 73E-03 

III I I 

OSBDZ 

-8.73356-32 

-1. 1352E-G2 

-5.26 3oE-03 

-l .2361 E-02 

- 1 . 3 J25E-02 

-7.6947E-C3 

-6. 32 15E-03 

- 3.6329E - 03 

III II 

PP 

1.27206-15 

2.5C71E-C2 

6. 63136-02 

1.0304F-C1 

9.13126-02 

5. 2 559E-C2 

5 . 0881 E-02 

4.9627E-02 

mn 

UP 

-5.5UG0E-15 

— 1.288SE-C1 

-2.54196-01 

-3.7787E-CI 

-5. 16046-01 

-6.8 378E-C 1 

-8.6120E-01 

-1.01566*00 

in n 

VP 

-4.02746-15 

2.946 5E-01 

6.1516E-C1 

8.9450E-01 

9.5734E-01 

8.3252F-01 

7 . 5052 E-0 1 

6.10386-01 

ii n i 

WP 

— 1 . a6 52E *00 

-1.0231E*CC 

-1 . 7CS8E+00 

-1 .5684E *00 

-1.59716*00 

- 1 . 7 1 1 IE *C0 

-1.6eB5E*00 

-1.58976*00 

mu 

SBAR P 

5.267tE-l6 

l.ot3SE-C2 

4. 11166-02 

7. 5405E-02 

7.37946-02 

4.6526E-C2 

4.6814E-02 

4. 71776-02 

mn 


X8SCK IC= 2.8 172322 5t- Cl YBSCMC* -2.44223328E-01 


1*10 


56992519E-15 
77263 ll 8E- 02 
650926366-01 
6298 1758E-01 
52127250E-01 
91289616E-01 
,00407 253E-01 
02510975E-01 
8687546 76-01 


I »l 0 
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APPENDIX C 


Z£ T A * 5.00C000006-01 

1 = 1 1*2 ! =3 1=* [=5 1 = 6 1=7 1=8 1=9 1 = 10 


P/ROVSQ 8.3951E-02 d.*566E-C2 8.8017E-02 9.3862E-02 

P /RCA ST SQ 3.8378E-01 3.8655E-11 *.02366-01 *.29086-01 

P/PTINF 1.2385E-02 1.2476E-G2 1.25E5E-02 1.3047E-C2 

P/PINF l. 88C5E *00 1. 8543E ♦ C C l.5H6E*00 2.1J25E*00 

RhO l.55S*E*0U 1.5&b9E*CC 1.6087E+00 1.6 7 776*00 

O' 2.02 76E*C0 2.C22CE+0C 2.CC366*00 1.97*66*00 

V -4.Q755E-01 -3.5731E-C1 -3.t3€3E-01 -3.0660E-C1 

M ' -7.416GE-16 -1.632BE-01 -3.200o£-0l -4.6341E-0I 

UC 2.0672E*C0 2.066CE *CC 2.C555E*QO 2.0*82E*C0 

VC 6. 1689E— 02 6.*473E-C2 7.9*576-02 1.0172E-CI 

.NC. -6.3579E-16 1.61146-C2 3.6164E-C2 6. 50886-02 

VCC 6.1689E-02 6.5571E-C2 8.5152E-02 1.140JE-01 

hCC -?.*160E-16 -8.C181E-C2 -2.C5C8E-02 -3.9759E-02 

VX -7.4160E-16 I.692QE-C2 3.EJ58E-C2 6.8939E-02 

VV -6. 1689E-02 -fc. *2666-02 -7.8544E-02 -9.9155E-02 

VZ 2.06726*00 2.C66CE*CC 2.C595E*C0 2.0*826*00 

P&1M0*L. -2. 0554E-14 *.6922£-Cl 1.0781E*00 1.5277E*CC 

minor 8.6291E*0l e.8218E«Cl 8.70loE*Cl 0.723OE*C1 

XBAR 0. I.0830E-01 2.1ECIE-01 3.30*26-0 

X8HL0 0. €.5*57E-C2 1.9633E-01 3.C305E-C1 

fEAP -2. 76776-01 -2.72**E-0I -2.6U2E-01 -2.39 75E-C1 

Y8HL0 -2.7677E-01 -2.7335E-CI -?.6375E-C1 -2.4510E-01 

,fc.LA 1.7789E-01 1.7A31E — 0 ) l.fc5*3E-01 1.*810E-01 

G -4.1140E-01 -4.1264E-01 -*.1515E-01 -*.2055E-01 

DEO NS 2.*125E*0C 2.43C8£*C0 2.5225E*0Q 2.68336*00 

AH 3.523*6 *00 3.5171EU0 3.*£35E*00 3.428SE*CC 

CROSS* 6.94 32E-01 7.3C87E-C1 8.1E63E-01 9.3139E-01 

,S?AR 9.50576-03 1.0134E-C2 1.3228E-C2 1.8755E-02 

,PORQ£AM_ 4* 5069E-02 4.5Q98E-02 4.5237E-02 4.5488E-02 

PT/PTINF S.7652E-01 S.7*SeE-Cl 9.6747E-01 9.5419E-01 

PT 6. 61526*00 6.60681*00 6.5579E*00 6. *6786*00 

BERNCUL -1.14206-09 -1.8991E-C6 -5.3406E-C6 -1.9210E-05 

"CPOZ -9.6493E-03 -7.6692E-03 -6.53UE-C4 1.0407E-02 

OgOZ. -8. 0554E-02 -7. 69196-02 -6.6639E-02 -5.0149E-02 

DVOZ —4.70 17E-01 -4.5416E-01 -4.037B6-C1 -3.1623E-C1 

DhOZ — 7.6472E-1 7 1.0020E-02 2.2637E-02 3.7679E-02 

OSBOZ - 1.6 592E-32 -1.5437E-C3 -7.04206-03 -1. *6216-02 

PP -7_.6832E-17 2.2120E-02 5.2435E-02 9.2461E-02 

UP 3. 49S2E- 14 -1.3749E-01 -2.7C93E-01 -4.0027E-01 

VP -7.3634E-16 2 .482 11 - C 1 5.2188E-01 7.9032E-01 

UP - 1. 878 16*00 -1.8354t*0C -1.73086*00 -1.5743E*00 

SBARP 4.6568E-17 2.C143E-C2 4.56S4E-C2 8.0282E-C2 


1.0326E-01 

1.0937E-C1 

1.138 8E -01 

1. 18906-01 

1.2351E-01 

.*.7203 6-01 

5.000QE-01 

5 . 2058E-0 1 

5.43566 -0 1 

5. 6*616-0 1 

1 . 5233Er 02 

1.61 36E-C2 

1 . 6800E-02 

l - 7542F -02 

1.82216-02 

2.3129E*00 

2.*500£*CO 

2.55086*00 

2.6634E *00 

2.76666*00 

1.78636*00 

1.05576*00 

1 .90486*00 

l .958 8F *00 

2.00766*00 

1.93336*00 

l .8800E*00 

1 .81006*00 

1.72816*00 

1.6316E*00 

-2.2998E-0I 

-1.5B12E-01 

-9 . 6966F-02 

-4.0243F-02 

9. 31 31E-1 1 

-5.9939E-01 

-7.**61E-C1 

-8.9360E-01 

-1.03426*00 

-1.17016*00 

2.0304E*U0 

2 .0192E *00 

2 .0 1 08E*00 

2 .00 14E *00 

1 . 992 9E*00 

I .32886-01 

1 .5154E-CI 

1.6697E-0I 

l. 83766-01 

1.99956-01 

9.9033E-02 

1.1751E-C1 

1.2613F-01 

1.3538E-01 

1 • *0**E- 0 l 

1. 4980E-0I 

1.6235E-C1 

1. 63646-01 

1.6525E-01 

1 . 633*E-0 1 

-7.C880E-02 

- 1 . 0207F-C 1 

-1.3042E-01 

-1.574*6-01 

-1.81726-01 

1 .05816-01 

1.2735E-C1 

1.39*76-01 

1 .5306F-01 

1.633*6-01 

-1.2754C-01 

-1.4338E-C1 

-1.5600E-01 

-1.69316-01 

-1.81 72E-0 1 

2.03046*00 

2 • 0 192E *00 

2 .0 1 08E*0 0 

2.001*6 *00 

1.99296*00 

2.9833E*00 

3. 60896* CO 

3.96786*00 

*.37336*00 

*.68576*00 

8.64 IOE*0 1 

8.5947E*C1 

8.557*6*01 

8.51786*01 

8.*607E*0 1 

4.4 7056-01 

5. 69496-01 

7.006*6-01 

8 .*2806-01 

1.00006*00 

4.2649E-01 

5 . 469 IF— 01 

6. 78196-01 

8. 29896-01 

1 . OOOOE* 00 

-2.0845E-01 

-1.6576E-01 

-1.1907E-01 

-6.296*6-02 

2. 52566-10 

-2.1397E-01 

-L. 7363E-C1 

- 1. 2706E-0 1 

-6.8060E-02 

2. 5256E-10 

1.2429E-01 

5.3 74 7E -02 

6 . 3*08E-0 2 

3 ,090*E - 02 

0. 

-4.2305E— 01 

-4.22 4 7E-C 1 

-4.201 3E-01 

— * .15196-01 

HIM 

2 .94 366*00 

3.0993E *00 

3. 16486*00 

3 . 2 1 1 *F *00 

HI II 

3.34936*00 

3. 3025E*C0 

3.26826*00 

3.23186*00 

3.19986*00 

1 .05556*00 

1 . 2 39*E *C0 

1.4531E*00 

1.66056*00 

1. 06* 7E*00 

2.6313E-02 

3. 0503E-02 

3. 43156-02 

3 . 036 l E-02 

*. 19206-02 

4.5833E-02 

4.6026E-C2 

4.6201E-02 

* . 6389E -02 

*. 655*E— 02 

9.3633E— 01 

9.2658E-01 

9. 1779E-01 

9 .085 5E -01 

9.00506-01 

6. 34686*00 

6.28076*00 

6.221 lt*00 

6 . 15856*00 

6. 1039E*00 

4.3787E-05 

— 4.*325E-C6 

- 1 .28536-05 

-3. 59996-06 

*. 263 3E- 1 * 

1.50 70E-02 

1. 0286E-C2 

9.02246-03 

5.3935E-03 

mi I 

-3. 1294 E-02 

-1.6521E-C2 

-6.7 152E-0 3 

-1.G967E-03 

HIM 

-2.31 75E-01 

-1. 66126-01 

-1.0005E-01 

—4 . 26 1 OE -02 

HIM 

3.4982E-02 

2. 0 787E-C2 

I. 68376-02 

8. 5 72 1 E -03 

HIM 

-1.3576E-02 

-7.7633E-03 

-6.74266-03 

— 3. 7 I64E-03 

HIM 

9. 3543E-02 

5. 7055E-C2 

5.33016-02 

5.50266-02 

IIIII 

-5.3 7G0E-0 1 

-6.9B68E-01 

-8.69996-01 

- 1 . 0 236E *00 

HIM 

8.7715E-01 

7.5964E-C1 

6.78936-01 

5. 53986-01 

HIM 

-1.50066*00 

-1.6995E*00 

-l.6625E*0C 

-1.57566*00 

HIM 

6. 9385E-02 

4.2286E-02 

4.49966-02 

4.3*506-02 

Hit I 


. .X1SQNIC- 3.546861046-01 YBSCMC* -2.22465212E-01 


ZETA = 8. CC COO COO E- 01 

1=1 1=2 1=3 1=4 1=5 1=6 1=7 1*8 1=9 1*10 


P/RCVSQ 8.4761E-02 8.5216E-C2 8.8100E-02 9.2975E-02 

P/RCA ST SQ 3.8748E-01 3.8956E-C1 4.C274E-CI 4.2503E-01 

P/PTINF 1. 2505E-02 1.2572E-C2 1.2597E-02 1.3717E-02 

P/PINF 1. 89 66E * 00 1.5C88E*C( 1.57346*00 2.0327E*00 

RHO 1.57016*00 1.57526*00 1.6C86E*00 1.6645E*0C 

U 2.03526*00 2. C292E *00 2.C095E*00 1.97546*00 

V -3.6126E-01 -3.524 It- 0 1 -3.2314E-01 -2.7433E-C1 

W -5.3143E-16 -1.6413E-C1 -3.2186E-01 -4.6861E-01 

UC 2.0659E *00 2 .C649E *C0 2.C550E*00 2.04906*00 

_VC 6.7680E-02 7.0009E-02 8.30286-02 1.0150E-01 

_ WC -8.1535E-16 1.5184E-C2 3.4887E-C2 6.2000E-02 

._Y_CC ...6.7680E-02 7.0427E-02 8.560ZE-02 1.0965E-QI 

_JCC -9.3143E-16 - 1. 31C8E-C2 -2.7564E-C2 -4.6077E-02 

VX -9. 31436-16 1.6C59E-02 3.6571E-C2 6.5845E-02 

VY -6.7680E-02 -6.5ei3E-C2 -8.2122E-02 -9.9047E-C2 

VZ 2. U6 55E*00 2.Cfc4SE*CC 2.C590E*00 2.0*90E*00 

PSINOR -2.S832E-14 4.4559E-C1 l.0286E*00 l. 84056*00 

TFETNCR 8. 8 1 24E*0 1 8.80fc*E*01 E.7716E*0l 8.72346*01 

X EAR 0. 1.0769E-0I 2.1721E-01 3.293CE-01 

XBHLD 0. 6.5E871-C2 1.75286-01 2.7708E-01 

YEAR -2. 52056-01 -2.4816E-G1 -2.3638E-C1 -2.187IE-C1 

YBHLD -2.52C5E-01 -2.4967E-CI -2.4213E-01 -2.27886-01 

ETA 1.5812E-01 1.5494E-C1 1.47C5E-01 1.3165E-0I 

G -3.6486E— 01 -3.6623E-C1 -3.6923E-01 -3.76246-01 

__ OEQNS 2.90 1 5E *00 2.9124E*CC 2.97466*00 3.07486*00 

A> 3. 5 1 66 E *00 3.51146*00 3.48156*00 3.4328E + 00 

CROSS* 6.1462E-01 6.6C70E-C1 7.7042E-C1 9.0816E-01 

SBAR , 9. 5057E-03 1.0318E-C2 1.4C47E-02 2.0347E-C2 

_PCRJQGAM_. _ 4. 506SE-02 4.5106E-C2 4.5274E-02 4.5561E-02 

PT/P T INF 9.7652E-01 5.74541-01 9.6S49E-01 9.5040E-01 

_PT_. . . . 6.61 52E *00 6 . 605 8E *0 C 6.5445E*00 6.44226*00 

_ B ERNCUL - i. 35 43E-09 -3.8317E-C6 -1.3106E-05 -3.9016E-05 

DPDZ -6. 7852E-03 -5.50711-03 -9.02516-04 7.5203E-03 

_JDUDZ -7.1405E-02 -6.1149E-C2 -5.8920E-02 -4.4357E-02 

DVOZ -4.5695E-01 -4.44<3E-C1 -4.05656-01 -3.2830E-01 

0 HD Z 1.1330E-15 7. 1891E-C3 1.3782E-02 2.6522E-02 

OSBDZ 5. 72686-32 -2.17371-03 -9.4676E-03 -1.72C5E-02 

PP 7.3085E-16 1 . 804 6E -02 4.26266-02 8.2756E-02 

UP 7.2424E-15 -1.4511E-01 -2.1572E-C1 -4.2020E-01 

_ VP 3.46 1 BE— 1 5 2 . 1603E-C 1 4.4730E-01 6.8823E-01 

UP - f. 88 77E *00 -1.84536*00 -1.74556*00 -1.58436*00 

SBARP -1.1350E-16 2.5043E-C2 5.5CE8E-0 2 8. 3962E-02 


1.0186E-01 1.0839E-01 1.1301E-01 1.1837E-01 1.2351E-01 

4.O564E-01 4.9548E-01 5.1662E-01 5.4U3E-01 5. 64616-01 

1.50276-02 1 . 5990F-C 2 l.t672E-02 l. 74636-02 1.8221E-02 

2.28176*00 2.4278E*00 2.53156*00 2.6516E*00 2.7666E*00 

1.76736*00 1.8427E*C0 1.8535E*0C 1.9520F*00 2.0076E*00 

1.93636*00 1 .88166 *00 1.81146*00 1.7283F*00 1.63166*00 

-2.0642E-01 -1.41 38E-CI -8.o843E-02 -3.5955E-02 9.3131E-11 

-6.0266E-01 -7.4664E-C1 -8.9520E-01 -1.03506*00 -1.17016*00 
2.03206*00 2.02056*00 2.01196*00 2.00206*00 1.99296*00 

1.2983E-01 U4878E-CI 1.6441E-01 1.8216E-01 1.9995E-01 

9.6067E-02 1.15786-01 1.24816-01 1.3473E-01 1.4044E-01 

1.434 IE-01 1.57516-C1 1.5999E-01 1.6343E-01 1.6334E-01 

-7 .4237 E-02 -1.0359E-C1 -1.3042E-01 -1.5694E-01 -1.81 726-01 
1. C269E-01 1.2543E-C1 1.3794E-01 1.5226E-01 1.6334E-01 

-1. 24656-01 -1.4074E-C1 -1.5356E-0I -1.6779E-01 -1.8172E-01 
2.0320E*O0 2.02056*00 2.01196*00 2.0020E*00 1.9929E*00 

2 .89 32E *00 3.55256*00 3.9223F*00 4.34916*00 4.6857E*00 

8.6494E*01 8 . 602 3E *0 1 8.5646E*01 8.52236*01 8.48076*01 

4.45726-01 5 . 68 1 36-C1 6.9941E-01 « 8 . 4200E-01. -l -00006*00 

4 .02 78E-0 1 5. 15196-01 O.5161E-01 8.13536-01 1.00006*00 

-1. 90416—01 -1.51 79E-C1 -1.092BE-01 -5.79686-02 2.5256E-10 

-2.0085E-0 1 -1.6849E-C1 -1.2469E-01 -6.3213E-0Z 2. 5256E-10 

1 . 1048E— 01 8.3331E-02 5.63636-02 2.747OE-02 0. 

-3. 7883E—01 -3.7605E-C1 -3. 74536-01 -3.6948E-01 1 1 1 1 1 

3.2735E*00 3.4089E*00 3.4601F*00 3.49876*00 Mill 

3. 3562E*O0 3.3074E*C0 3.27236*00 3.23426*00 3.19986*00 

1 .04896*00 1.23856*00 1.45526*00 1.6624E*00 1.8647E*00 

2. 7690E-02 3.1285E-C 2 3.5015E-02 3.87366-02 4.1920E-02 

4. 58566-02 4.6062E-C2 4. 62346-02 4.6406E-02 4.6554E-02 

9. 3 3 12 E— 01 5. 24776-01 9.1619E-01 9.0770E-01 9.00506-01 

6 . 3250E *00 6. 2684E*C0 6.2102E*00 6. 15276*00 6.1039E*00 

9.471 5E— 05 -1.1469E-05 -3.0376E-Q5 -4.7217E-06 4.2633E-14 

1.2857E-02 9.5045E-C3 8. 29336-03 5.2052E-03 HIM 

-2.7724E-02 -1.4&5BE-C2 -5.9740E-03 -1.5319E-03 HIM 

—2. 3941E— 01 -1.6870F-CI -1.0235E-01 -4.3153E-02 IIIII 

3.03 73E— 02 1.98396-C2 1.5323E-02 8. 1696F-03 HIM 

-1.391 8E-02 -7.9009E-03 -7.2764E-03 -3.79*86-03 IIIII 

9.3663E-02 6.0767E-C2 5.5471E-02 5.99666-02 HIM 

-5.55 78E-01 -7.1198E-C1 -8.7782E-01 -1.02736*00 IIIII 

7. 8781 E- 01 6.8388E-CI 6.0650E-01 4.9615E-01 HIM 

- l.5720E*00 -1 .6891 E*00 -1.6565E*00 -1.57046*00 HIM 

6.3354E-02 3. 8284E-C2 4. 32096-02 3.9452E-0 2 IIIII 


XBSCN.IC- 4.C5287673E-C1 YBSCMC* -2.CC241767E-01 
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APPENDIX C 


ZETA = 7. CtCCOOOOE-Ol 



1=1 

1 = 2 

1 = 3 

1=4 

1=5 

1 = 6 

1 = 7 

1 = 8 

1 = 9 

P/FCVSO 

d.53*3£-t>2 

t . 569i£ -C2 

8.8 1676—02 

9.23266-02 

1.0C67E-01 

I. 07476-C1 

1. I22IE-0I 

I.1786E-01 

1.23516-01 

P/FOASTSO 

3.9U14E-01 

3.5173£-C 1 

4.03146-01 

4.22C66-01 

4.60206-01 

4.91 30E-CI 

5.12986-01 

5.3B80E-01 

5.64616-01 

P/PT1KF 

1.259 lc-02 

1.2t42t-C2 

1 .5J1OE—02 

1 . 3o2 16-02 

1.48516-02 

1. 58556-02 

1 .65556-02 

1.73886-02 

I.B2216-02 

P/Plfvf 

1*911 7 1 *Ou 

1.515£E*0C 

1.5 7546*00 

2. Ut>6 IF * CU 

2.25506*00 

2.40746*00 

2.51366*00 

2.64016*00 

2.76666*00 

bhli 

i . i> 7 7dfc*00 

l.5dl2£*Ct 

1.6Cd7c*00 

l.o539F*00 

1.75076*00 

1.83056*00 

1.8S29E*00 

l . 945 5E *00 

2.00766*00 

U 

2.0415E+CU 

2.Cj56c*CC 

2.01546*00 

1.9d35£*00 

1.9339E*00 

1.88306*00 

1 .8 1 20 E *00 

1 . 7284F *00 

1.63166*00 

V 

-3.15586-01 

— 3.08221*6 l 

-2 .8 253E-C1 

-2.41 C7E-01 

-l. 8214 E- 01 

- 1.24386-01 

-7. 65C7E-02 

-3. 16136-02 

9.31316-1 l 

b 

-9. 77b4E- lb 

- 1.6474c- C 1 

-3.22efcS-Cl 

-4. 70766-01 

-o. 05486-01 

—7. 48576 -Cl 

-8.9666E-01 

-1.03586*00 

-1.17016*00 

uc 

2.00456*00 

2.064CE+CC 

2.05856*00 

2-0494E*00 

2.03326*00 

2.02lbF*C0 

2 . 0 129E *00 

2.00276*00 

1.99296*00 

VC 

7.2572E-CZ 

7.474 16-C2 

8.65766-02 

1.C2 156-01 

1.2742E-01 

1.46256-01 

1.6205E-01 

1.80626-01 

1.99956-01 

uc 

-8.5337E-16 

1.4522E-CJ 

3.38CIE-C2 

5- 9849F-C2 

9. 34676-02 

1.14106-01 

1 .2360E-01 

1.34126-01 

1.40446-01 

vcc 

7.25 72E-02 

7.3905E-C2 

d. 55456-02 

1. 06086-02 

1.3748 £-01 

1.52796-C1 

1. 56526-01 

1 . 6165F-01 

1. 63346-01 

bCC 

-9.7 »04E-lc 

- V.6JC 86- C 2 

-3.5277E-C2 

-5-25766-02 

-7.79256-02 

-1.05196-01 

-1 .30536-01 

- V .56476-01 

- 1.81726-01 

vx 

-9. 77o4E— lb 

1 .54566-02 

3.5474E-C2 

6. 3 72CE-02 

9.55 72E-02 

1.23606-01 

l. 3654E-01 

1.51496-01 

1.63346-01 

vy 

-7.25726-02 

-7.45 546- C 2 

-£.56566-02 

-9. 97846-02 

-1.22396-01 

- 1 .3 3326 -C 1 

-1.51316-01 

- 1.66326-01 

-1.81726-01 

vz 

2.06496 **>0 

2.C*A0i*l£ 

2.05656*00 

2.0 4946*00 

2.0332E*CC 

2.0216£*C0 

2.01295*00 

2.00276*00 

1.99296*00 

PSINCF 

-2. 71226-14 

4.25C56-C 1 

1 .00126*00 

1.78C9t*0C 

2.dl49E*00 

3.498b6*0O 

3 . 8806E *00 

4.3259E*00 

4.68576*00 

T 6ETNCR 

8.738 7 c*Ol 

e.792 IE *t 1 

8.7616E*C1 

8.72146*01 

d.6560E*01 

8.60936*01 

8.57116*01 

8 . 5266E *0 1 

8.48076*01 

XBAP 

0. 

1.C748F-C1 

2.16426-01 

3 . 28 1 86-01 

4.44396-01 

5 . 66 786- C 1 

6.981 8E -01 

8.41206-01 

1.00006*00 

XBhLU 

c. 

4.554££-C 2 

1 .55576-01 

2.522CE-01 

3.75036-01 

4. 70646-01 

6 . 2 287 E-0 1 

7 .93056-01 

1.00006*00 

YEAR 

-2.27546-01 

-2 .24061 -01 

-2.1532E-01 

- 1.97 77 E— Cl 

-1.72476-01 

-1.37866-Cl 

-9. 9498E- 02 

-5.29766-02 

2.5256F-10 

YBhlD 

-2.27£4c-01 

-2.2555E-U1 

- 2 . 20 ie£- 0 l 

-2.C9 706-Cl 

-1.87576-01 

-1.65046-01 

-1. 2149E-01 

-6. 86386-02 

2.5256E-10 

ETA 

1.38366-01 

1 . JS576-C 1 

l. 21676-01 

1. 15156-01 

5. 6669E-02 

7.29156-02 

4.9317 E— 02 

2.40366-02 

0. 

C 

-3. 19176-01 

-3.2C36C-C1 

-3.2291E-01 

-3.30526-01 

- 3 . 3355 E-C 1 

-3.30826-C1 

-3.2856E-01 

-3.23656-01 

I III l 

CfcCNS 

3. 51 89£»Co 

3.327U£»CC 

3. 37 3 7E* 00 

3. 4 34 56 *CC 

3.5764E*00 

3.68636*00 

3.7 243E*00 

3.75336*00 

tun 

4P 

3.51186*00 

3.50701 *CC 

3.47836*00 

3.43446*00 

3. 36 1 8E*CC 

3.31196*C0 

3.2 7 59E *00 

3.2 365E*00 

3.19986*00 

CROSSf- 

5.37C56-01 

5.SJ456-C 1 

7 .24326-01 

8.d4506-01 

1.04236*00 

1.23796*00 

l .4572E *00 

1.66436*00 

1.86476*00 

SCAR 

9.50576-03 

1 .05616-02 

1.51536-02 

2.22I0E-C2 

2.9086E-02 

3.20896-C2 

3. 5775E-02 

3.91196-02 

4.19206-02 

P CROC AM 

4.50696-02 

4.51 166-02 

4.53256-0 2 

4. 564 56-C2 

4. 5960E-02 

4.60996-02 

4.62696-02 

4.64246-02 

4.65546-02 

PI/PT INF 

9.76526-01 

5. 7 3o9t- C 1 

5.6283E-01 

9.4555E-CI 

9. 2986E-01 

5. 22916-Cl 

9. 1445E-01 

9.06836-01 

9.00506-01 

PT 

6.6l52£»0u 

t>.6C14c*CC 

6.52646*00 

b. 41236*00 

6.30306*00 

6.25586 *C0 

6. 15846*00 

6. 1468E *00 

6.10396*00 

BERNCUL 

-1.42026-09 

— 6.05676-Ct 

-2.2639E-C5 

-5.6145E-05 

1.5133E-04 

-2 .38 896-05 

-5. 1863E-05 

-2.83746-06 

4.26336-14 

UPDZ 

-4. 99546-03 

-4.C0Z3E-C3 

-8.03906-04 

5.59846-03 

1.09736-02 

8. 74756-C3 

7.6777 £-03 

5 . 02266-03 

Hill 

CUC L 

-6.24546-02 

-5.54546-C2 

-5.C5E2E-C2 

-3. G3246-02 

-2.4056E-02 

-1.27856-02 

-5.2 107E-03 

-1.36526-03 

mi i 

DVCZ 

-4.49396-ol 

-4.39616-01 

-4 .06 54E-0 1 

-3. 3b3 IE-CI 

-2.45936-01 

-1.711 66 -Cl 

-1 . 0433E-01 

-4.3680E-02 

mi i 

OWDZ 

4.26426-15 

4.6SC2E-03 

6.4235E-03 

1.73286-02 

2.6232E-02 

1.87546-02 

l . 3894E-02 

7.76586-03 

nut 

CSBD2 

-2.UC.676-31 

-3.1815E-C2 

-1.2E53E-02 

-2.00776-02 

-1.3S43E-02 

-8.21336-C3 

-7 » 9473E-03 

-3.85B46-03 

mi r 

PP 

2.40516-15 

1.5340L-C2 

3.55476-02 

7.4341E-C2 

9.25026-02 

6.36336-C2 

5.7392E -02 

6.4524E-02 

mi i 

UP 

6.8t20t-15 

-1.52C86-C1 

-2. 5685E-C1 

— 4.3756E-CI 

-5.72 15E-01 

-7.23646-01 

-8.8471E-01 

-l.0305E*00 

iiiii 

VP 

-1.10646-14 

1.5C851-U 1 

3.840 36-01 

5.89656-01 

6.9273E-01 

6.05216-Cl 

5.3324E-01 

4.37106-01 

uni 

bP 

-1. 89456*00 

- 1 . 8£4 36 *CC 

-1.75486*00 

-1.59706*00 

-1.5b97E*00 

-1.68016*00 

-l .65066*00 

-1.56206*00 

in 1 1 

S B AFP 

4.73416-16 

3* 19496- C 2 

6.9S37E-02 

6. 5b55E-C2 

5.56196-02 

3.48466-C2 

4.1 333E-02 

3.5 1 10F-0Z 

tin i 
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ZE T A* 6. CtC COCOOE-Ol 



1=1 

1=2 

1 = 3 

1=4 

1=5 

1=6 

1 = 7 

1=8 

1 = 9 

P/ROVSQ 

B.5778E-02 

8.6C47E-C2 

8.8256E-C2 

9.16356-02 

9. 965oE-02 

1.06636-01 

1.1147E-01 

1. 1737E-01 

1.2351E-01 

P/P0A5T SO 

3.9213E-01 

3.93J6E-CI 

4.03466-01 

4.19826-01 

4.55576-01 

4.B7476-C1 

5. 0559E-01 

5. 3654E-01 

5.646 l E-0 1 

P /PT INF 

1.26656-02 

1.2654E-C2 

1 . JC2U6-C2 

l. 35486-02 

l. 47026-02 

1-5 7 3 26 -C2 

1.64456-02 

1.73156-02 

1.8221E-02 

P/P1KF 

1.92146*00 

l . 42 7 5E ♦ C C 

1.97696*00 

2 • 05 7 IE* CO 

2.23236*00 

2. 3d8oE*C0 

2.4970E*00 

2.62916*00 

2 .76666*00 

RHC 

1.58366*00 

l . 56556* C 0 

1.6C79E*00 

1.64516*00 

1.73646*00 

1 .8 1926 *00 

1.07296*00 

1.53916*00 

2.00 76E*00 

U 

2.04776 *00 

2 .U4 1 IE * CC 

2 .02C 16 *00 

1 . 9d 7C6 * 00 

1.541 1 E* 00 

1.88426*00 

1 . 8 125E*00 

1.72856*00 

1.63 16E*00 

V 

-2.71296-01 

-2.6440E-C l 

-2.4 1646-01 

-2 .07 1 7E-C1 

-1.5727E-01 

-1.0715E-CI 

-6.5586E-02 

-2 . 7219E-02 

9.31316-11 

b 

-l. 38416-15 

- l.t£l 1E-C 1 

-3.23156-01 

-4.72136-01 

-6.C7S3E-01 

-7.5038E-OI 

-8.9798E-01 

-1.03666*00 

-1.17016*00 

UC 

2. u642E*00 

2.0b326*C0 

2.05786*00 

2.04946*00 

2.03426*00 

2.0Z27E*C0 

2. 0138E*00 

2.0033E*00 

1.9929E*00 

VC 

7.O/79E-02 

7.9CC7E-C2 

9.01066-02 

1.0337E-01 

1 .2555E-01 

1.4393E-CI 

1 . 5987E-01 

1 . 7913E-01 

1.99956-01 

bC 

-1.25246-15 

1.4102F-C2 

3.241 86- C2 

5.84726-02 

9.1182E-02 

1. 12526-Cl 

1.22506-01 

l. 33536-01 

1 .40446-0 1 

VCC 

7.6779E-02 

7.6622E-C2 

8.6035E-02 

1.02966-01 

1.3189 E-0 1 

1.48196-01 

1.5321E-01 

1.59S2E-01 

1.63346-01 

wee 

— 1.38 41 E- 15 

-2.3E15E-C2 

-4.2E23E-C2 

-5.514C6-C2 

-8.1 752E-OZ 

-1.06856-01 

-l.3073F.-0l 

-1.56036-01 

-1.81 72E-01 

vx 

-1.38416-15 

1.5J9CE-C2 

3.5680E-02 

6.23916-02 

9.7592E-02 

1.2186E-CI 

1 . 35266-01 

1.5076E-01 

1.63346-01 

VY 

-7.6/ 79E-U2 

- 7.8fc2£c-t2 

-8.92346-02 

-1. 01056-01 

- 1 . 2064 E-0 1 

-1.361 lE-Ol 

-1.49226-01 

-1.64896-01 

-1.81726-01 

vz 

2 . 0642 E *00 

2.C632E *CC 

2.057dc»C0 

2.04946*00 

2.03426*00 

2.0227E*C0 

2. 0138F*00 

2.00336*00 

l .99 296*00 

PSINOF 

-3.8419E-I4 

4. 15C4F-CI 

9.53366-01 

1.74386*00 

2.74666*00 

3.44786*00 

3.84276*00 

4.30386*00 

4.68576*00 

ThETNCF 

8. 7d 70 E *0 1 

6.7312E*C 1 

d.75l7E*0l 

8. 717 8F *01 

8- 66 10E*0 l 

0. 61 5 76 ♦ Cl 

8.57726*01 

8.53086*01 

0.48076*01 

XE AR 

0. 

I.C7C8E-01 

2.1563E-01 

3.2708E-C1 

4 .43 08 E-0 1 

5.65426-01 

6.9696F-01 

8.40406-01 

1 . OOOOE *0 0 

xBFLO 

0. 

3.E104E-C2 

1.363SE-CI 

2.2&46E-01 

J.3878E-01 

4.29126-01 

5.9 130 E-0 1 

7 .65476-01 

1 .00006*00 

V BAR 

-2.03226-01 

-2.LJIU-CI 

-1.42426-01 

-1.76956-01 

- 1 .54606-01 

-1.23986-C1 

-B. 97396-02 

-A. 798 96-02 

2.5256E-10 

V BHL.C 

-2.0322E-J1 

-2.C215E-CI 

-1. 57536-01 

- 1 .9052E-C1 

-l. 7469E-01 

-1.57296-01 

-1.17246-01 

-6.97976-02 

2.5256F-10 

ETA 

L. 18596-01 

1.162 1E-C 1 

1 . 1029E-01 

9.8736E-C2 

8.2859E-02 

6.24986-C2 

4. 2272F-02 

2.06036-02 

0. 

G 

-2. 73956-01 

-2.74746-C1 

-2. 76356-01 

-2. d 3 88E-C1 

-2 .8 7 40 E-0 1 

-2.84386-Cl 

-2.8227E-01 

-2.77706-01 

iiiii 

DECAS 

3.6721 E*00 

2 . 67S 5E ♦ C C 

3.7 175E*00 

3. 7524E*C0 

3. 84636*00 

3.92946*00 

3.95556*00 

3.97466*00 

mil 

AM 

3. 50 E2E * OC 

3. 5034 E ♦ GC 

3.47576*00 

3.4344E*C0 

3.36636*00 

3.31586*00 

3.27916*00 

3.23876*00 

3. 19986*00 

CROSSP 

4.6075E-01 

5. *89 1E-C 1 

6.3CS9E-01 

8.625EE-01 

l. 03616*00 

1.2 3 766*00 

1 . 4589E *00 

1.66606*00 

1.86476*00 

SB AR 

9.5U57E-03 

1.C476E-C2 

t. 66646-02 

2. 43666-02 

3.0464E-02 

3.2940E-C2 

3.6609E-02 

3.95076-02 

4. 19206-02 

PCRCGAM 

4. 5065E-02 

4.5136E-C2 

4. 5353E- 02 

4. 57446-02 

4.6024 E-G2 

4.6138E-02 

4.63076-02 

4.64426-02 

4.65546-02 

PT/PTINF 

9.7652E-01 

9.7253E-G 1 

9.55206-01 

9.4090E-01 

9. 2667 E- 01 

5 . 20956- C 1 

9. 12546-01 

9.05956-01 

9.00506-0 1 

PT 

6. 6152c *00 

6 . 5549E ♦ C C 

6.50186*00 

6.37786*00 

6 • 28 1 3E *00 

6.24256*00 

6. 18556*00 

6.14096*00 

6. 10396*00 

BERMCUL 

-1.458UE-C4 

-1.2435E-C5 

-3.2344E-C5 

-6.62776-05 

2. 1038E-04 

-4.53806-C5 

-7.5684E-05 

2.71446-06 

4.26336-14 

DPD2 

-3.7718E-C3 

-3.C733E-C2 

-5.7348E-04 

4.3053E-03 

9. 3207 E-03 

8.02036-03 

7. 1444F-03 

4.84826-03 

I11U 

DUCZ 

-5.362 IE-U2 

-5.C7I4E-C2 

-4.27C8E-02 

-3-19656-02 

-2.0354E-02 

-1.08986-02 

-4.41 766-03 

-1.19786-03 

mi i 

DVD2 

-4.4487E-01 

-4.371CC-01 

-4.07296-01 

-3-4 144E-01 

-2.5 125E-0 l 

-1.7352E-C1 

-1.0607E-01 

-4.4 1826-02 

mi i 

DbDZ 

-5.0O18E- It 

2.4479L-C2 

-6.32816-04 

9.831 /E-03 

2. 28896-02 

1. 7419E-02 

1 . 24626-02 

7.37286-03 

uni 

OSBCZ 

-2.06356-31 

-4 . 0c26 L - C 2 

-l .7 1 356—02 

-2.3047E-02 

- 1 . 353 IE— 02 

-8.9030E-C3 

-8. 76646-03 

-3.38916-03 

mi i 

PP 

- 1 . fi068£- 16 

1.3 364c- C 2 

J.Cc7bf-C2 

6. 7235E-0? 

9.O631E-02 

6.5706E-C2 

5. 9053F-02 

6.87556-02 

1(111 

UP 

6.5 322 E- 1 5 

- 1.586/E-tl 

-3.1 0666-01 

-4.52266-01 

- 5. 859 1 E-0 1 

-7.3366E-C1 

-8.9064E-0 l 

-1.03326*00 

I1II I 

VP 

- 1. 6 £266-15 

l .6480E -t 1 

3.2742E-01 

4.9448E-C1 

8-94456-01 

5. 24026-01 

4. 59106-01 

3.76996-01 

mi i 

bP 

-l.VuCOE *00 

- l.£546E*CC 

-1.75556*00 

— 1.612 Cc*CO 

-1.57236*00 

-1.67206*00 

-1.64496*00 

-1.55456*00 

nit i 

SBARP 

2. Oofc3r-16 

A.X111E-02 

d.2C4b£-02 

d -42 106-02 

4.63216-02 

3.2 3 92F.-C2 

3.91J36-02 

3.03426-02 

uni 
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APPENDIX C 


ZET 4» 5.00COOOCOE-01 



1-1 

1-2 

1-3 

1-4 

1*5 

. 1*6 

1*7 

1=8 

1=9 

_ P/RCVSQ 

8.OL09E-U2 

8.6314E-02 

8.83006-02 

9.14516-02 

9.8796E-02 

1.0587E-C1 

1 .1078E-01 

l . 16896-01 

1.23516-01 

P/R045TSQ 

3.9364E-01 

3.94S6E-CI 

4.03666-01 

4. 1806E-0 1 

4.51646-01 

4.0357E-O1 

5.0644E-01 

5. 34366-01 

5.646 16-01 

_ P/PT I NF 

1-27 C4E-02 

1. 27346-02 

1.3C276-C2 

1.34926-02 

1.45756-02 

1.56186-02 

1.6344 6— 02 

1.7245E-02 

1.82216-02 

P/P INF 

l. 92886*00 

1 .9334E *CC 

1.97796*00 

2.04856*00 

2.2 130E*00 

2.3714E*C0 

2.48156*00 

2.61846*00 

2.76666*00 


1.58 796*00 

1 . 56836 *0C 

1«6C61£*00 

1.63736*00 

1.72416*00 

1 .80866*00 

1-86346*00 

1 . 93296 *00 

2.00766*00 

U 

2.05266*00 

2.04576*00 

2.02396*00 

1.98996*00 

1.94 306*00 

1 .8851E*C0 

1 • 81 29E *00 

1 . 72B7E*00 

1.63166*00 

, V 

-2. 26946-01 

-2.2C74E-C1 

-2.0 IC76-01 

-1.72866-01 

-1.3193E-01 

-8. 96816-02 

-5.5 300F-0 2 

-2.27776-02 

9.31316-1 1 

'v 

-1. 40206-15 

-1.6520E-01 

-3.22726-01 

-4.72816-01 

-6. 10C9E— 0 1 

-7.52 046-01 

-8.9916E-01 

-l .03736*00 

-1.17016*00 

uc 

2.06366*00 

2.0c256*00 

2.05696*00 

2.04916*00 

2.03506*00 

2 .02 36E *C0 

2.01466*00 

2. 0039E *00 

1.99296*00 

VC 

8.0555E-02 

8.30336-C2 

9. 36246-C2 

1. 049 16-01 

1.2412E-01 

1 ,4 182E-0 1 

1.57836-01 

l . 7 768F-01 

1.99956-0 1 

Vc 

-1. 26396-15 

1 . 3968E-02 

3.37446-02 

5.77096-02 

6.91406-02 

1. 1 1 C6E-CI 

1. 21516-01 

1.32976-01 

1.40446-01 

vcc 

8.0555E-02 

7.6662E-C2 

8.56C4E-02 

9.998 IE-C2 

1 .26 50 E— 01 

1.43 736-C 1 

1.50056-01 

1.58236-01 

1.63346-01 

. vcc 

— 1.4020E— 15 

-3.00296- 02 

-5.04176-02 

-6.58796-C2 

-8.57256-02 

-1.0857E-C1 

-1 . 3099E-01 

-1.55616-01 

-1. 81726-01 

- VX 

-1.40206-15 

1.50066-C2 

3.60556-02 

6. 16886-02 

9.54786-02 

1.20266-01 

1.34116-01 

I. 50066-01 

1.63346-01 

VY 

-*8.05556-02 

-8. 26516-02 

-9.27436-02 

-1.02626-01 

-1. 19316-01 

— 1. 341 1E-C1 

-1.4728E-01 

-1.6350E-01 

-1.81726-01 

vz 

2. 06 36 E *00 

2.C6256*CC 

2.05696*00 

2.04916*00 

2.0350E*00 

2 . 02 36E *C0 

2 . 0 1 4bE * CO 

2.0039E*00 

i.9929F*00 


-3. 89286-14 
8. 77646*01 
0 . 

0 . 

-1. 79C6E-0I 
-I.7906E-01 
9. b 82 7E-Q2 
-2.2902E-01 
3.9649E*00 


4- 1&85E-01 
8.77006*01 
1. C668E-C 1 
2.53106-02 
1.76426 -Cl 
■ 1 . 784 36-C 1 
S.60306-C2 
2.2920E-C1 
3 .972 8E *CC 


1.0CS3E*UQ 
8.74196*01 
2.1 485E-CI 
1. 22126-01 
■U6965E-01 
-1.7*456-01 
9.19056-02 
-2.25616-01 
4.00466*00 


l.7244E*00 
8.71346*01 
3.2598E— Cl 
1.9464E-01 


2.6862 E*00 
8.68486*01 
4.41766-01 
3.0080E-01 


1.5623E-01 -1.36806-01 
1.70926-01 -1.59276-01 
8.228CE-02 6.90496-02 


2.3665E-C1 
4 .022 2fc * CO 


-2.40596-01 

4.07846*00 


3.40116*00 
8.62156*01 
5.64086-01 
3.9409E-CI 
•1. 10146-01 
- 1 . 44606-01 
5.2062E-C2 
2.3758E-01 
4.1 363E*C0 


3.80856*00 
8.58286*01 
6.9574E-01 
5.5 067 F -0 l 
-7.9997E-02 


4.28266*00 
8.53486*01 
d • 3960E -01 
7.2385E-01 
4.3006E-02 


-1. 13066-01 -7.27696-02 
3.52Z7E-02 1.71696-02 


-2.3570E-01 
4. 1 520E *00 


2. 31646-01 
4.16196*00 


4.68576*00 
8 .4 807F*0 1 
1.00006*00 
1.00006*00 
2. 52566-10 
2.52566-10 
0. 

mu 

n i it 


3. 50556*00 

3. 5UC2E ♦ OC 

3.47176*00 

3.43316*00 

3.36996*00 

3.31936*00 

3.28186*00 

3.24076*00 

3.19986*00 

_ 3-85226-01 

4.6750E-C1 

6.41006-01 

8.42016-01 

1.03076*00 

1.2374E*C0 

1 .4604E *00 

1.6678E*00 

1.86476*00 

S.5057E-C3 

2 • I5S5E-C2 

1.87486-02 

2. 6807E-02 

3.17766-02 

3. JS956-C2 

3.75 31E-02 

3.989 56-02 

4.19206-02 

4. 5069E-U2 

4. 5164E-02 

4.54866-02 

4.5856E-C2 

4.6C846-02 

4.6182E-C2 

4.63506-02 

4.64606-02 

4.65546-02 

9.76526-01 

5.71436-C1 

9. 54216-01 

9.35 ldF.-Cl 

9.23636-01 

S.1875E-CI 

9.10446-01 

9.05C8E-01 

9. 00506-01 

6.61 52E*00 

6 .564 76 *CC 

6.4660E *00 

6.33906*00 

6.26076*00 

6.22766*00 

6.17136*00 

6.13496*00 

6.10396*00 

-1.4873E-09 

-2.26036-05 

-3.8 1C 56-05 

-6.50626-05 

2.65186-04 

-7.9 792E-C 5 

-9. 8690E- 0 5 

1.27166-05 

4. 26336-14 

.-.2.09O5E-O3 

-2.2989E-C3 

-2.9C026-C4 

3.43116-03 

7.9212E-03 

7.33156-03 

6.67266-03 

4. 68266-03 

III I I 

-4.4855E-02 

-4.17546-02 

-3.3C74E-02 

-2.5394E-02 

-1.67106-02 

-8.961 76-C3 

-3.58436-03 

-1.03286-03 

HIT I 

-4.42386-01 

-4.3647E-CI 

-4.08C7E-01 

-3.44406-01 

-2.55476-01 

-1.75766-01 

r 1 .0 762E-0 1 

-4.4655F-02 

iiii i 

-1.7205E-15 

-8.5117E-C4 

-8.2506E-'C3 

4. 17846-03 

2.0462E-02 

1.56046-02 

1.09796-02 

7 .00546-03 

1 1 1 1 1 

- 1. 204 IE-31 

-7.8C626-C3 

— 2.4458E-02 

-2.56446-02 

-1.26436-02 

- 1 . 0 3466-C2 

-9.6887E-03 

-3.85546-03 

1 1 1 1 1 

-6.2633E-16 

1. 179 5E-C2 

2.7C48E-02 

6. 13376-02 

8.84136-02 

6.70876-02 

6.04496-02 

7.26996-02 

mu 

7.4547E-14 

-1.65296-01 

-3.2 1 1 IE-01 

-4.63906-01 

-5.96936-01 

-7.42C9F-CI 

-8.95596-01 

-1.03556*00 

mu 

-4. 17376-15 

1. 5145E-C 1 

2. 7425E-C1 

4.01936-01 

4.94796-01 

4.40806-01 

3. 84036-01 

3. 15946-01 

him 

-1.90226*00 

-l. 85086*00 

-1.76236*00 

-1.63036*00 

-1.57816*00 

-1.66456*00 

-1.63986*00 

-1.54786*00 

HU 1 

... 9.99246-17 

5.59206-C2 

9. 46736-02 

7.80106-02 

3.61026-02 

3.13776-C2 

3.60506-02 

2.50726-02 

mu 


_*_BSQMC» 4.229153146-01 VBSCNIC* -1 .399649476-01 


Z6TA= 4.C0C000OQE-01 



1 = 1 

1=2 

l»3 

I«4 

1 = 5 

1 = 6 

1 = 7 

1=8 

1=9 

P/PCViQ.,. 

8.6364fc-02 

8.65116-02 

8.83136-02 

9. 1140E-C2 

9.8064E-O2 

1.0517E-C1 

1.10146-01 

1.16436-01 

1.23516-01 

_P/ROA$T$g 

3.9481E-01 

3.95486-01 

4. C 3726-Cl 

4. 1664E-01 

4.48296-01 

4. 80766-01 

5. 03486-01 

5.32266-01 

5.6461F-01 

— P-ZPT I.RF 

1.274 16-02 

1.27636-02 

1. 30296-02 

1.3446E-C2 

1.44676-02 

1.551 5E-C2 

1.62486-02 

1.7 177E-02 

1.02216-02 


...U9346E*00 

I .93 7SE * CC 

1.97826*00 

2 .041 5E*00 

2 • 1966E*00 

2.35576*00 

Z.4671E+00 

2.60816*00 

2. 76666*00 

...PJsO -- 

1.59136*00 

1. 589 76 *CC 

1.6029E*00 

1 . 6303E»00 

1 . 7 1 35E*00 

1.79866*00 

1 . 8543 E *00 

1.92706*00 

2.0076E*00 

, U... . 

2.056 1 E *00 

2 . C49 56 *C C 

2.02686*00 

1.99216*00 

1.94456*00 

1.885 96 *C0 

l . 8 1 32E *0C 

1.72886*00 

1.63166*00 

V 

-1.82756-01 

~ 1. 7705E-C 1 

-l. 60236-01 

-1. 38356-01 

-1 .062 1 E— 01 

-7.19986-02 

-4.44676-02 

-1.82896-02 

9.31316-11 

V 

-1.54496-15 

-1.64876-C1 

-3.21466-01 

-4.7 305E-C 1 

-6. 12046-01 

-7.53476-Cl 

-9. 00186-0 1 

- 1 . 0 380E *00 

-1.17016*00 

uc 

2.06316*00 

2.C6106*CC 

2.05586*00 

2.04066*00 

2.03 5 7 E*00 

2.02446*00 

2.0152E*00 

2.00446*00 

1.99296*00 

V .C. 

8.40956-02 

8.6S986-C 2 

9. 71336-02 

l . C6 6CE-0 1 

1.23026-01 

1.39916-01 

1.5594E-01 

1.7627E-01 

1.99956-01 

VC 

-1.4C07E-15 

1.42516-C 2 

3.46566-02 

5. 7353E-02 

8.72766-0 2 

1. 09776-01 

1 . 2063E-0 1 

1.3244E-01 

1.40446-01 

vcc . 

8. 4095E-02 

8.CC28E-C2 

8.52166-02 

9.6845E-C2 

1.21196-01 

1.39476-01 

1.4704E-01 

1.5658E-01 

1.63346-01 

~«c 

-1.54496-15 

-3 .69 7 5E-C2 

-5.B2C66-02 

-7. 26226-02 

-d. 97986-02 

-1. 10336 -Cl 

-1.31326-01 

- 1.55236 -01 

-1.81726-01 

vx 

-1.54496-15 

l .53396- C 2 

3.72956-02 

6.1 396E— 02 

9. 3560E-02 

1 . 18856-01 

1.33O0E-O1 

1.49396-01 

1.63346-01 

V Y 

-8.40956-02 

-8.68126-02 

-9.62236-02 

— 1.0432E-01 

-I. 18316-01 

-1.32286-01 

-1.45466-01 

-1.62166-01 

-1.81726-01 

_yi - 

,2-0631E*00 

2. 06 ] 86 * t C 

2.05586*00 

2.04866*00 

2.03576*00 

2.02446*00 

2.01526*00 

2.00446*00 

1.99296*00 

PS1NCR 

-4. 29056- 1 4 

4 . 26266- C 1 

1.03936*00 

1.71666*00 

2. 63 156*00 

3. 36016*C0 

3.77016*00 

4.26236*00 

4.68576*00 

THETNCR 

8. 76666*01 

0 . 75896 *C 1 

8.72216*01 

8.70866*01 

8.66776*01 

8.62686*01 

,0.58806*01 

8.53886*01 

8.48076*01 

X EAR 

0. 

1. 0628E-01 

2.14076-01 

3.2488E-01 

4.40456-01 

5.62736-01 

6.9451E-0 1 

8 . 3B80E-01 

1 .0.0006*00 

XBHLQ 

0. 

1.69146-02 

l .06136-01 

I.O3466-01 

2.6140E-01 

3. 341 66 -Cl 

4. 8030E-01 

6.73736-01 

1 . OOOOE *0 0 

YEAR 

-1.55046-01 

- 1 . 52806 -C 1 

-1.47016-01 

-1.35616-01 

-l .19076-01 

-9.6J336-02 

-7 .02 72E-Q2 

-3.80276-02 

2.52566-10 

YBFl.O 

-1.5504E-01 

-1.54666-01 

-1.52816-01 

-l. 49736-01 

-1.4214E-01 

-1.3428E-C1 

-1. 1166E-0 1 

-7.43826-02 

2.52566-10 

ETA 

7.906 IE-02 

7.74716-C2 

7. 3524E-C2 

6.58246-02 

5.52 39E-02 

4.16656-02 

2.01816-02 

1.37356-02 

0. 

6 

-1.84246-01 

-1.8 36 26 -Cl 

-1.82796-01 

-1.8925E-01 

-1. 9326E— 01 

-1.90446-01 

-1.88906-01 

-1 .85476-01 

IIII I 

occns 

4. 19936 *00 

4.20826*00 

4.23406*00 

4.23996*00 

4.26886*00 

4.30536*00 

4.31236*00 

4.31476 *00 

him 

tv 

3.50346 *00 

3.49686*00 

3.46656*00 

3.43086*00 

3.37286*00 

3.32196*00 

3.20416*00 

3.2428E*00 

3.19986*00 

CR0S5M 

3.10086-01 

4.C994E-01 

6.U4886-01 

8.23986-01 

1.02646*00 

1.23736*00 

1.46186*00 

1 .66946*00 

1 .06476*00 

S BAR 

9.50576-03 

1.2621E-C2 

2. 16*36-02 

2.9446E-02 

3.29886-02 

3.5056E-02 

3.85436-02 

4.0274E-02 

4.19206-02 

PORGGAM 

4. 5069E— 02 

4.52 10E-C2 

4.56206-02 

4.59 776-02 

4. 6140E-02 

4.62366-02 

4. 63976-02 

4.64786-02 

4.65546-02 

PT/PT1NF 

9.76526-01 

5.68946-01 

9.47316-01 

9.2903E-0 1 

9.20846-01 

9.16096-01 

9.08146-01 

9.04226-01 

9.00506-01 

PT 

6.6 1926*00 

6 . 56 7 BE * C C 

6.42126*00 

6.29736*00 

6.24186*00 

6.20966*00 

6.15576*00 

6.12916*00 

6.10396*00 

BERNCUL 

-1.47616-09 

-3.96426-C5 

-3.03086-05 

-5.20486-05 

3.03406-04 

-1.2892E-04 

-1.15426-04 

2. 79836-05 

4.26336-14 

OPDZ 

-2.2387E-03 

-1.66 4 76 - 02 

1.6355E-C5 

2.81776-03 

6. 7407E-03 

6.68656-03 

6.24846-03 

4.52556-03 

IIII I 

0UD2 

-3.6121E-02 

-3.22326-02 

-2.41046-02 

-l .88566-02 

-1.32186-02 

-6.86 766-C3 

-2. 71106-03 

-8.77226-04 

IltM 

DVDZ 

-4.41 706-01 

-4.3745E-C1 

-4.C660E-01 

-3.45546-Cl 

-2.5881E-01 

-1.77896-01 

-1.09026-01 

-4.51006-02 

IIII I 

OVCZ 

-2.22206-15 

-6.19596-03 

-1.703QE-02 

1.21386-03 

1.8647E-02 

1 .28 8 86- C2 

9.49766-03 

6.68666-03 

III I I 

DSBCZ 

-5.19346-31 

— 1.33056-C2 

-3.42046-02 

-2. 67316-02 

-1.16586-02 

- 1 . 31906-C2 

- 1 . 04896—02 

—3. 70746-03 

mi t 

PP 

-6.4082E-16 

1 . 04426-C2 

2.4117E-C2 

5.65156-02 

8. 60 7 IE— 02 

6. 78826-02 

6.15826-02 

7.63836-02 

mi i 

UP 

0. 79?0fi-14 

-l. 72556-Cl 

-3.3C08E-01 

-4.71 90E-Q1 

-6. 05266-01 

-7.4907E-C1 

-8.99496-01 

-1.03736*00 

tin i 

VP 

-2. 41706-15 

1.346 76- C 1 

2.2 1966- Cl 

3.11 526-01 

3.95186-01 

3.55996-01 

3.0800E-01 

2.54056-01 

mi i 

VP 

-1.89966*00 

—1.841 36*CO 

-1.76486*00 

-1.65316*00 

-1.58516*00 

-1.6570E*C0 

-1.63596*00 

-l . 542 OF *00 


S8XRP 

3.13346-16 

7,651 06- C2 

1.05616-01 

6. 49866-02 

2.66556-02 

3.20046-02 

3.12436-02 

1 .92926-02 

mi i 


XBSOMC- 4.2 53761606 -Cl YBSCMC* -1.2 12299 72E-C1 



APPENDIX C 


ZcTA* 3.CCCCOOOOE-01 



1 = 1 

I *2 

I *3 

I=«* 

1=5 

1 = 6 

1 = 7 

1 = 8 

1=9 

P/RC\ SU 

c.65b2fc'-02 

E.C6*« , JE -12 

8.d24t>E-02 

9.03816-02 

9. 744 I E- 02 

1 . 0453E-C l 

1.09535-01 

1. 15996-01 

1.235 IE-01 

P/RQASTSO 

3.9571E-C1 

3.561 IE- U ] 

4. 03t 4E-01 

4. 1 546E-CI 

4.4545E-01 

4.7765E-01 

5.0072E-01 

5 . 3022E-OI 

5. 646 1 E-0 1 

P/PJtHF 

1.277UE-U2 

1.27p3c-C2 

1.30266-02 

1.340CF-C2 

1 , 43 75E-C2 

1.5421E-C2 

l . 61 59E-02 

1.7111 F-02 

1.82216-02 

P/PINF 

1 • 9)S0e ♦ JU 

1.S4JS6 «»C 

1 . 5 7 7 dt * 00 

2 .U357E *00 

2. 1827E + UC 

2.34 1 4E *00 

2 . 4535E *00 

2.59816*00 

2.76666*00 

RHC 

1. 5v39E*0U 

1.5£94E*C.C 

l . 5Sd 06 *00 

i . 6240E *00 

1. 7C43E*OC 

1. 7d83E*C0 

l . 8456 E *00 

1.92126*00 

2 .00 76E*00 

U 

2.G5SdE*ttJ 

2.C521c *£C 

2.02Q 76*00 

1 .993 76*00 

1.9456 E*GO 

l . d 86 5E*00 

1.81346*00 

t . 7 2886 # 00 

1.63166*00 

V 

-1.3852'c-ul 

-1.3319E-C1 

-1. IS 3 fit -Cl 

-1 .O380E-C1 

-a.oiaoE -02 

-5.4VC9E-02 

-3.3501 E-02 

-1 .37586-02 

9.31316-1 l 

u 

-1.4d64E-L:> 

-1 .63816 -01 

-3. 1S28E-01 

-4.7)216-01 

-6. 1379E-01 

-7. 5457E-CI 

-9.0 107E-01 

- 1 , 0386E *00 

-1.17016*00 

uc 

Z.U62fcE*CU 

2.C6C5E *CC 

2.0544E*C0 

2. C4B06 »C0 

2 • 0302 E *00 

2.02496*00 

2 .0 1 58 E*00 

2.00506*00 

1.99296*00 

VC 

d . 7 6 L o t -02 

5. I066t-C2 

t.OCSdE-Ol 

i.od 2 se-ci 

1.2221E-01 

1.3818E-01 

l. 5417E-01 

1.7491E-01 

1.9995E-01 

feC 

-1.3)tlc-15 

1.5257E-C2 

3.6647E-02 

5.70726-02 

d. 56U4E-Q2 

1.0877E-C1 

1. 1986E-0 1 

1.3192E-01 

1. 4044E-0 1 

vcc 

d. 7a lot— 02 

t. C693E-C2 

B .4 2 1 dE- 02 

5.3155E-C2 

1. 1595E-01 

1. 3549E-C1 

1.44176-01 

l .5496E-01 

1 . 6334E-0 1 

NCC 

-l.4dt4£-l» 

-4.48816-C2 

-6 . ol9 /fc-02 

-7.9417E-02 

-9.39156-02 

-1.121 lfc-Ol 

-1.31716-01 

- 1. 5487E-01 

-1.8172E-01 

vx 

-l.^dfcsE-lS 

l .c3566-C2 

3.S372E-C2 

6.11 BC6-C2 

9.1848E-02 

1.1 774E-01 

l . 32 16 E-0 l 

1.48746-01 

1.6334E-01 

VY 

—8. 7ol 6E-02 

-9.Cd68t-G2 

-9.9e22b-02 

-1.0603E-01 

-1.1759E-01 

- 1 . 30b 3£ — C 1 

-1.43766-01 

-1.60856-01 

-1.81 726-01 

vz 

2.Ud2oc *00 

2.C6C5E *tt 

2 • 0S44E *C0 

2 . C40OE *00 

2.0362 E*-UO 

2 . 0249E *00 

2.01586*00 

2.00506 *00 

1.99296*00 

FS1NCF 

-4. !2ouE-l4 

4.S5dl£’0l 

1 .0980E*00 

1.7lllb*CC 

2. 5827E+C0 

3. 3276E *C0 

3.75126*00 

4.24276*00 

4. 6857E*00 

TI-ETNOR 

fc. 75obe*01 

a.7475£*tl 

8.7224E*C1 

8.70386*01 

B.6693E+01 

8.6316E*C1 

8.59306*01 

8. 5426E *01 
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ETA 

1.9765E-02 

1.5368E-C2 

i . 838 IE- 02 

1.6456E-C2 

1.38 106-02 

1.0416F-C2 

7 . 0453 E-0 3 

3.43385-03 

0. 

G 

-4.84156-02 

-4.5fiiCc-C2 

-4.38656 -02 

-4.7557E-02 

1-4.8939 E-02 

-4 . 7439E-C2 

-4.73826-02 

-4.64375-02 

mi r 

DECKS 

4. 564eE +00 

4.S6836+CC 

4.5715E+00 

4.5683E+00 

4.58806+00 

4 . 56 86E +00 

4.5655E+00 

4.56136+00 

. mu 

AM 

3. 49966+00 

3.47C6E+CC 

3.4 397E+00 

3.4275E+C0 

3.37 13E+00 

3. 3247F+C0 

3.2903E+00 

3. 24856+00 

3.19985+00 

CROSSM 

8. 18696-02 

2.7236E-C1 

5.2572E-CI 

7.95786-01 

l. 01576 + 00 

1.2367F+00 

1 .4861 F. +00 

1.6743E+00 

1.8647E+00 

SEAR 

9.50576-03 

2.6J82F-C2 

3.7280E-02 

3.4835E-02 

4.0288E-02 

4 .0453E-C2 

4.10395-02 

4.12925-02 

4.19205-02 

POROGAM 

4.50656-02 

4.5d36E-C2 

4 . t 339E- 02 

4.6226E-02 

4.84786-02 

4 . 64d 6E-C2 

4.65135-02 

4.6525E-02 

4.65545-02 

PT/PT INF 

9.76526-01 

9.3617E-C 1 

S. 1 1016-01 

9. 1655E-01 

9.04196-01 

• 9.038 1E-C1 

9.02495-01 

9.0192F-01 

9.0050E-0 1 

PT 

6.61926+OU 

6.34576 +CC 

6.1/52E+Q0 

6.2130E+00 

6.12896+00 

6. 1264E + 00 

6. 1 174E+00 

6. 1135E+00 

6. 1039E+00 

6ERKCUL 

1.20006-06 

-4.6614E-CS 

1.8458E-C4 

-4.2679E-04 

4.51 76E-04 

-3.3708E-04 

3 . 4899E-06 

1.0122E-04 

4.26335-14 

OPOZ 

-5.84506-04 

- 5. 400 86 - Of 

8 .399dE-04 

l .8127E-C3 

4.16B3E-03 

4. 9943E—C3 

5. 1936E-0 3 

4.10C9E-03 

III I I 

DUOZ 

-9. 54436-03 

2.65656-C2 

3.1257E-CJ 

- 7. 6 389E-03 

1.29256-02 

-6 . 844 5F.-03 

6 .80266-04 

t4. 99606-04 

III I I 

D VO Z 

-4.oo2J.E-Ul 

-4.4S86E-CI 

-3.96 38fc— 0 1 

-3.4475E-CI 

-2.67376-01 

-1.82 52 E-01 

-1.1249E-01 

-4.62766-02 

mi I 

OWCZ 

-5. 8966E-15 

-5.CSC76-C2 

-2.o782E-C3 

5.2549F.-03 

-2.08516-02 

1.5588E-C2 

4.0899E-03 

6. 1086E-03 

Mil t 

DS6CZ 

-7. 78566-30 

-1.3367E-C1 

-4.6 1 7 IE-02 

-1.56466-02 

-6.7924E-02 

6.9841E-C4 

-6.4870E-03 

-3.86875-03 

uni 

PP 

-2. 40ti6£-lo 

6.65836-63 

1.9C67E-02 

4.723JE-02 

7.9386E-02 

6.7702E-C2 

6.3490E-02 

8. 6150E-02 

mu 

UP 

-8.02796-15 

-2.C898E-0 1 

-3.2182E-C1 

-4. 7424E-01 

-6.2429E-01 

-7.53 74E-0 1 

-9.0464E-01 

-1.0402E+00 

m 1 1 

VP 

l. 83816-lb 

6.486SE-G2 

5.2419E-02 

8.09536-02 

1.0460E-01 

S.3125E-C2 

7.4960E-02 

6.4121E-02 

1 1 1 1 1 

WP 

-J.7651E+0U 

-1.79C6E+GC 

-1.851 1E+ 00 

— 1 * 71 605+00 

-1.5788E+00 

-1.6592E+00 

-1.63335+00 

-1.52796+00 

mu 

SEARP 

7. 4018E-16 

2.0352E-0I 

3.5 104E-02 

5.5164E-03 

3.9189E-02 

-4.2J74E-C4 

4. 8333E-03 

5.0313E-03 

III! I 
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1*1 

1*2 

1 = 3 

1*4 

1*5 

1*6 

1=7 

1*8 

1*9 

P/RCVSQ 

6.69 16E-02 

8.67446 -C2 

8. 8C 626— 02 

5. C295E-02 

9.6073E-02 

1.0295E-01 

1.0792E-01 

1.1474E-01 

1.2351E-01 

P/PCASIS3 

3.9733E-01 

3.9655E-01 

4. 0266E-01 

4.12 7 8c- C 1 

4.39 19E-0 1 

4. 7062E—C l 

4.9336E-01 

5.24515-01 

5.6461E-0 l 

P/PTINF 

1.28236-02 

1. 2797E-C2 

1.2555E-02 

1 .332 IE-02 

1.41735-02 

1.51885-02 

1.S922F-02 

1.6927E-02 

1.82215-02 

P/P1KF 

1.94o9E+UU 

1.943 15 ♦ OC. 

1.5 7305+00 

2.02265+00 

2. 15205+00 

2.30605+00 

2.41 75E+00 

2.57015+00 

2.76665+00 

RHG 

1.56 2CE+00 

1.55986+CC 

1.5769E+00 

1.60515+00 

1.6778E+00 

1.76275+00 

1.8232E+00 

1.9046E+00 

2. 00765+00 

U 

2.054 16 +00 

2.C493E +CC 

2.0283E+00 

1.9946E +00 

l. 94626+00 

1 . 8868E+00 

l .81386+00 

1.7289E+00 

1.631 6E+00 

V 

-3.855 lfc-04 

1.3703E-C4 

3.9875E-04 

-3. 57046-04 

-3.82 12E-04 

4.4522E-C4 

7.8772E-05 

6. 7609E-05 

9.31315-11 

N 

1.9827E-14 

-1.445 IE-01 

-3.1 3S4E-01 

-4. 7071E-CI 

-6.1641E-01 

-7. 55645-01 

-9.03256-01 

-1.0407E+00 

- 1 . 1 701F+0 0 

UC 

2.Q515E+00 

2.0514E+CC 

2.0492E+00 

2.04546+00 

2.03626+00 

2.0252E+C0 

2.01735+00 

2.0065E+00 

1.9929E+00 

VC 

1 . 029JE-0 1 

1.C454E-C1 

1.0611E-01 

1.13095-01 

1.21 36E-01 

1.33786-01 

1.49515-01 

1 .7104F-01 

1.99955-01 

WC 

2.OU03E-14 

3.3865E-C2 

4 . 1 423E-02 

5.90 1 8E-02 

8. 27815-02 

1.0761E-C1 

1.1 800E-0 1 

1.30246-01 

1 . 4044E-0 l 

VCC 

1.0290E-01 

E. 1934E-C2 

7. C663E- 02 

8.07846-02 

1.01425-01 

1 . 2533E-C 1 

1.3615E-01 

1. 5005E-01 

1.63345-01 

WCC 

1.9027E-14 

-7.32226-C2 

-5.1 7C55-02 

-5.87236-0 2 

-1.06275-01 

-1.1 735E-01 

-1.3319F-01 

-1 .5395E-01 

- 1 .81725-0 1 

VX 

1.9827E-1-* 

3.51 716-C2 

4.4 138E-02 

6.33096-02 

8.8985E-02 

1. 1629E-C 1 

1.29925-01 

1.4667E-01 

1.63345-01 

VY 

-1.U250E-01 

-1.04116-01 

-1.C7C36-01 

-1. 1074E-C1 

-1.1688E-01 

-1.263 IE-01 

- 1 • 3927E-0 l 

-1.5717E-01 

-1.8172E-01 

VZ 

2.05156*00 

2.C514E+0U 

2.C492E+00 

2. 04546+00 

2. 03625+00 

2.0252E+C0 

2.01735+00 

2.0065E+00 

l. 99295+00 

PSINCR 

5. 53 72c- 1 3 

9.8222E-C1 

1.23395+00 

1.7 72 95+00 

2.5023E+00 

2.28635+00 

3.68505+00 

4.18085+00 

4 . 6 8 5 75 + 00 

THfcTKCP 

a. 7 1 29 E +0 1 

8.7C55E+C1 

8.7C11E+01 

8.69025+01 

8.67188+01 

8.6437E+C1 

8.60595+01 
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8.4807E+01 
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0. 

I.C469E-C 1 
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U. 
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1.00006+00 
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-3.15175-02 
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2.5256E-10 
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-6.QCC0E-U2 
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2.5256E-10 

2.52565-10 
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ETA 

0. 

0. 
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0 . 

0. 

0. 

0. 

0. 

0. 

G 

-4.84156-02 

-4. 561CE-G2 

-4.3665E-02 
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-4.7439E-C2 

-4. 73825-02 
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iiiii 
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4.58466+00 
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AM 
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3.4435E+CC 
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3.3723E+00 
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3. 1998E+00 

CROSSM 

3.3223E-14 

2. 422 26 - Cl 
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7 • d44 8E-C1 

1.01 82E+00 

1.23605+00 

1.46755+00 

[ .676 L E +00 

l . 8647F+00 

S8AR 

4 . 1 920E-02 

4.1920E-C2 

4. 1920E-02 

4.1920E-02 
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4.8554E-02 
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PT7PT INF 

9.00505-01 

9 ,00501 -0 1 

9.0C50E-01 
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9.0C50E-01 

9.00505-Ct 

9.0050F-01 

9. GOSOf -01 
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PT 

6. 1039c +00 

6. IC39E + C0 

6. 1 C39E+00 

6. 1039E+00 

6 . 1039E+00 
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6.103 9E + 00 

8ERKCUL 

-2.47 7UE-08 

-3.5559E-C9 

-2.SS80E-C8 

-2.40206-C8 

-2.8449E-0B 

-3.0347E-C8 

3.51635-06 

5 .4907 E -09 

4.26335-14 

D VOZ 

-4. 7985E-01 

-4.4C78E-C1 

-3.9212E-01 

-3. 47276-01 

-2.6701E-01 

-! .8408E-C1 

-l. 12525-01 

-4.6974E-02 
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DPDZ 

6./278E-30 

3.457 JE-C4 

1.5837E-03 

3.2443E-C3 
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5.8119E-03 

5.80955-03 

3 . 92696-03 

IIIII 

PP 
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4. 62816-02 
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IIIII 

UP 
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WP 
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- 1.601 2E *00 

- 1 .6600E + 00 

-1.6259E+0Q 

-1 .5295E+00 

mu 


4 .263062525-01 YdSCMC* -4 . 5 C 1 1C2525-C2 



WIN04ARQ LIKE ZETA LIMIT 

U R MO S POROGAM OC VC WC VX VY VZ PT/PTINF 

2.0t4CE*CC 1. 55 756 + CC 9.5C57E-C2 4. 5C69E-02 2.0614E+0C 1.C378E-01 1.780QE-16 0. -1.0378E-01 2.0614E + 0C 9.7652E-01 

CPU! AT Z57A=0 

8. 4f 45-2576-02 6. 42U31 5fiSc-CZ 8- 6fi 79 12776-02 9. 1 3052 186 E-02 1 .026595576-01 1. 1661 1573E-01 1 .26561463E-01 1. 40 185412E-0 1 

1.577257106-01 
V ' 

-3.8 i5 138506-04 1 . 3 7Q34S5SE-04 3 .5 8745557E-04 -3. 5 7 J4 175 IE-04 -3. 82 1 191 1 iE-04 4 . 452 1 7430E-04 7. 87 71 8496E-05 6. 76090849E-05 

9.313101496-11 
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110221616-01 
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APPENDIX C 
Explanatory Notes 

Some input and auxiliary parameters. 

Initial shock shape and quantities computed from the first pivotal integration. 

Change in the shock shape computed by regular Newton method. (See ref. 1.) 

Note that the results of the N variational integrations are not printed. 

Shock shape for second pivotal integration and computed quantities from this 
integration. Since VMAX < VTEST1 at this stage, the modified Newton 
method (ref. 1) is used to compute corrections to the shock shape; that is, 
the previously computed Jacobian matrix is used, and consequently, DETERM 
is equal to the value from the previously computed value. Note that a modified 
Newton iteration cycle requires only one integration, since the N variational 
runs are bypassed. 

Change in shock shape computed by modified Newton method. 

Shock shape for third pivotal integration and computed quantities. 

New correction to shock shape computed by modified Newton method. 

Shock shape for fourth pivotal integration and computed quantities. 

New correction to shock shape computed by modified Newton method. 

Shock shape for fourth pivotal integration and computed quantities. The solution 
now satisfies the convergence criterion VMAX < VTESTHD. 

Some input, auxiliary, and secondary parameters printed beginning on a new page. 

Coordinates of Mach cone behind shock centered at wing apex. 

Summary print block. 

Arc length, wing coordinates, and shock quantities. 

Zeta print block at shock. 

Sonic -line coordinates referenced to wing semispan. 

Zeta print block at wing surface. 

Windward-line zeta limit. 



APPENDIX C 



Surface -pressure coefficients and normal velocities- 


Force coefficients and center -of -pressure location. 
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